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EdiiORiAl 


Mit diesem Heft liegt Ihnen die erste Aus¬ 
gabe von „Peeker“ vor, die übrigens be¬ 
reits die 45. Zeitschrift der Verlagsgruppe 
Dr. Alfred Hüthig ist. „Peeker“ ist-wenn 
man von dem nicht allgemein erhältlichen 
Vereinsblatt des deutschen Apple-Clubs 
In Oberhausen absieht - das erste 
deutschsprachige Magazin, das sich aus¬ 
schließlich mit Apple-Computern befaßt. 
PEEK ist ein Befehl aus der Programmier¬ 
sprache BASIC, der die Untersuchung ei¬ 
ner Speicherstelle gestattet. „Peeken“ 
muß man immer dann, wenn man bei ei¬ 
nem Computer etwas genauer wissen wili. 
Und genau dies ist die Zielsetzung unse¬ 
rer neuen Zeitschrift „ Peeker“. Schön 
verpackte, aber oberflächliche Information 
hilft keinem Apple-Besitzer weiter, gleich¬ 
viel ob er Selbstprogrammierer oder reiner 
Anwender ist. Nehmen wir als Beispiel 
den Image-Writer als einen der für Apple- 
Computer erhältlichen Matrix-Drucker. Die 
Handhabung der nicht genormten Steuer¬ 
zeichen von Druckern war stets und ist im¬ 
mer noch ein leidiges Problem für alle Ap¬ 
ple-Benutzer. Man könnte sich nun In einem 
Aufsatz über den Image-Writer auf ober¬ 
flächliches Blabla In der Art „Der Image- 
Writer hat ein gefälliges beige Design und in 
seinem Herzen klopft ein kräftiger Prozes¬ 
sor“ beschränken. Besitzt man jedoch erst 
einmal einen Image-Writer, dann stellt 


man plötzlich ganz andere Dinge als ein 
pochendes Herz oder ein formschönes 
Styling fest. So kommt man beispielswei¬ 
se rasch zu der ernüchternden Erkenntnis, 
daß die mitgelieferte serielle Schnittstelle 
keinerlei druckerspezifische ROM-Soft- 
ware enthält und demzufolge viele nützli¬ 
che Befehle fehlen. Jetzt beginnt die Pha¬ 
se des „Peekens“, d.h. die Suche nach 
gezielten Detailinformationen, damit der 
Drucker das macht, was Sie von ihm er¬ 
warten. Und genau hier setzt unser „Pee¬ 
ker“ ein. Jedes Heft enthält eine Fülle 
nützlicher Utilities und Programme, Tips 
und Tricks, Test- und Erfahrungsberichte 
sowie Aufsatzserien für Anfänger und 
Fortgeschrittene. Damit Sie die teilweise 
sehr umfangreichen, professionellen Pro¬ 
gramme nicht abtippen müssen, erscheint 
je nach Bedarf etwa alle 2-3 Monate eine 
Sammeldlskette, die die größeren Pro¬ 
gramme aus den vorangehenden Heften 
von „Peeker“ zusammenfaßt. 
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65C02-Feature 

In diesem dreiteiligen Feature ist alles zu¬ 
sammengetragen, was Sie schon immer 
über den neuen 65C02-Prozessor wissen 
wollten. Im ersten Beitrag „Der neue 
65C02-Prozessor“ werden die neuen Be¬ 
fehle detailliert geschildert und an Fland 
von Beispielprogrammen erläutert. Im 
zweiten Aufsatz wird ein „65C02-Dis- 
assembier für Apple Ile und II Plus“ vor¬ 
gestellt, der auf dem Ilc-Disassembler ba¬ 
siert und sogar auf Geräten lauffähig ist, 
die nur über den alten 6502-Prozessor 
verfügen. Schließlich werden im dritten 
Beitrag „Accelerator Ile - Die neue Super¬ 
karte“ die Geheimnisse der brandneuen 
CMOS-Karte mit dem 4MFIz-65C02C ent¬ 
hüllt. Insbesondere wird gezeigt, wie 
man sich das Pseudo-ROM für modifizier¬ 
te Monitor- und Applesoft-ROMs zunutze 
machen kann. 

30 

Double Lores 

Double Hires auf dem Apple-Ile mit 64K- 
Karte ist seit einiger Zeit bekannt. Daß 
aber auch doppelte Lores-Grafik möglich 
ist, wird hier erstmals geschildert. Damit 
eröffnen sich neue Perspektiven für Spiel¬ 
programme, für die Hires zu fein und nor¬ 
male Lores zu grob in der Grafikauflösung 
ist. 

38 

Hires-Grafik-Dump 

Diese professionelle Utility gestattet den 
Hires-Bildschirmausdruck mit allen nur 
denkbaren Features wie horizontaler und 
vertikaler Verzerrung, Bildausschnittver¬ 
größerung usw. 
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Turbo-Pascal 

Für alle Pascal-Liebhaber, die auf das 
schnellere und komfortablere Turbo-Pas¬ 
cal umsteigen wollen, wird hier eine minu¬ 
tiöse Schritt-für-Schritt-Anleitung zur Sy¬ 
stemkonfigurierung und zur Erstellung Ih¬ 
res ersten „Turbo“-Programms gebracht. 

54 

ProDOS-Patches 

Mehrere Patch-Programme zeigen, wie 
man erstens ProDOS auch bei geänder¬ 
tem Monitor-ROM sowie zweitens bei 80- 
Spur-Laufwerken zum Laufen bringt. 

58 

Primzahlen-Preisausschreiben 

Wollen Sie 500,- DM gewinnen? Dann 
beteiligen Sie sich an unserem Prim- 
zahlen-Geschwindigkeitswettbewerb! 
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Der neue 
65C02-Prozessor 


Ulrich Stiehl 



- Der neue 65C02-Prozessor 

- 65C02 Disassembler für Apple 
und II Plus 

- Accelerator Ile: Die neue Superkarte 

Der 65C02 ist eine Erweiterung und 
Verbesserung des alten 6502-Prozes- 
sors. Während der neue Apple llc den 
neuen 65C02 in der 1 MHz-Version be¬ 
reits eingebaut hat, besteht beim Apple 
II Plus und Apple Ile die Möglichkeit, 
den alten 6502 durch den neuen 65C02 
(indes nur in der 1-MHz-Version) aus¬ 
zuwechseln. Darüber hinaus kann die 
brandneue 65C02C-Karte namens „Ac¬ 
celerator Ile“, die mit 4 Megahertz ge¬ 
taktet ist, in den Apple Ile oder auch 
den Apple II Plus eingesetzt werden, 
womit alle Programme bis zu 350% 
schneller laufen. 


Die nachfolgenden technischen Details 
sowie das Diagramm basieren auf Unterla¬ 
gen der Rockwell International GmbH, 
Fraunhoferstraße 11,8033 München-Mar¬ 
tinsried, sowie auf eigenen Untersuchun¬ 
gen anhand der Accelerator-Karte. Neben 
dem sog. R65C02 liefert Rockwell noch 


die Derivate R65C102 und R65C112. Den 
R65C02 gibt es (a) in Keramik- und Pla¬ 
stik-Versionen, (b) in 1, 2, 3 und 4 MHz- 
Versionen sowie (c) in kommerziellen und 
industriellen Temperatur-Versionen (im 
ersteren Fall 0 Grad bis 70 Grad Celsius). 
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Feature 



Alle 65C02-Prozessoren werden als 
CMOS-CPUs geliefert, während die alten 
6502-Prozessoren NMOS-CPUs waren 
(CMOS = Complementary Metal Oxide 
Semiconductor). Von Vorteil ist der erheb¬ 
lich geringere Stromverbrauch gegenüber 
der NMOS-Technologie. Von Nachteil ist 
dagegen die relativ hohe Empfindlichkeit 
gegenüber statischer Elektrizität. (Bei¬ 
spielsweise sollte man sich bei der Acce¬ 
lerator-Karte erst einmal „entladen“, in¬ 
dem man etwa auf das Netzteil-Metallge¬ 
häuse des Apples greift, bevor man die 
Karte anfaßt.) 

Verbesserungen 

Neben den eigentlichen neuen Befehlen 
sind folgende technische Verbesserungen 
implementiert worden: 

a) Ungültige Operationscodes 

Ungültige Op-Codes, z.B. $02, werden 
jetzt allesamt als NOPs bzw. $EA behan¬ 
delt. Beispiel für Apple II Plus/Ile: 

CALL-151 
0300:02 4C 59 FF 
0300G 

- Beim Apple II Plus bzw. Ile mit normalem 
6502-Prozessor würde der Apple nach 
300G hängen“. 

- Beim Apple llc oder beim Apple Ile mit 
Accelerator Ile würde $02 ignoriert und 
dann der nächste Befehl ab $0301 ausge¬ 
führt. 

Für das Debuggen von Maschinenpro¬ 
grammen ist die Behandlung von Nicht- 
Op-Codes als NOPs indessen eher nach¬ 
teilig, da man hierbei u.U. nie feststellt, 
daß das Programm „Schrott-Stellen“ ent¬ 
hält. 

b) Bug beim indirekten JMP 

Der Fehler beim indirekten Sprung, z.B. 
JMP ($10FF), wurde beseitigt. Dieser Feh¬ 
ler trat nur dann auf, wenn sich das Low 
Byte der indirekten Adresse in einer belie¬ 
bigen Speicherstelle $??FF befand, also 
das Low Byte am Ende der letzten Page 
und das High Byte am Anfang der näch¬ 
sten Page stand. Beispiel: 

CALL-151 

0300: 4C 59 FF JMP $FF59 (Reset-Adresse) 
0303: 6C FF 10 JMP ($1 OFF) 

10FF: 00 Low Byte von $0300 

1100: 03 High Byte von $0300 

0303G 

Nach 303G erfolgt beim neuen 65C02 ein 
korrekter indirekter Sprung zur Adresse 
$0300, die sich der Prozessor aus $10FF 
(Low Byte) und $1100 (High Byte) holt. 
Demgegenüber würde sich der alte 6502 


irrtümlicherweise das Low Byte von Spei¬ 
cherstelle $10FF und das High Byte von 
Speicherstelie $1000 holen. Um dies zu 
beweisen, geben wir folgendes ein: 
1000:03 (HighBytel) 

10FF: 00 (Low Byte!) 

1100: 00 (High Byte wird ignoriert!) 

0303G 

Beim alten 6502 springt der Prozessor 
nunmehr nicht nach $0000, sondern nach 
$0300. 

c) Dezimalmodus 

Nach Hardware-Reset, d.h. nach Drücken 
der CtrI-Reset-Tasten, schaltet der 65C02 
nunmehr automatisch auf Binärmodus 
bzw. Nicht-Dezimalmodus (CLD) um. Da 
dies beim alten 6502 nicht der Fall war, 
mußte CLD durch die Software-Reset- 
Routine bei $FF59: CLD bzw. bei $FA62: 
CLD nachgeholt werden. 

Bei ADC und SBC im Dezimalmodus sind 
die Flags N (Negative), V (Overflow) und Z 
(Zero) nunmehr gültig, wobei diese Befeh¬ 
le jedoch dann 1 Takt mehr benötigen. 
Beim alten 6502 waren bei Dezimalopera¬ 
tionen die N-, V- und Z-Flags unbestimmt 
bzw. ungültig. 

d) Read-Modify-Write 

Die direkten Speicheränderungsbiefehle 
(Read-Modify-Write-Befehle) DEC, INC. 
ASL, LSR usw. werden beim 6502 mit 1 
Lese- und 2 Schreibzyklen und bei 65C02 
mit 2 Lese- und 1 Schreibzyklus ausge¬ 
führt. Inwieweit dadurch die Softswitches 
des Apple II, z.B. $C030 für Lautsprecher, 
andersartig beeinflußt werden, konnte bis¬ 
lang nicht festgestellt werden. Bei den 
Softswitches ist es bekanntlich nicht irrele¬ 
vant, ob man auf diese mit LDA oder STA 
zugreift. Sinngemäßes gilt für DEC, INC 
usw. 

Erweiterungen 
Neue Befehle 

BRA = Op-Code $80 = Branch relative 
always 

Dieser Befehl bewirkt eine unbedingte, re¬ 
lative Verzweigung, während die alten be¬ 
dingten Verzweigungsbefehie BCC, BCS 
usw. von dem jeweiligen Flag abhängen. 
Der BRA-Befehl ist insbesondere für relo- 
kative Programme sehr nützlich. Beim al¬ 
ten 6502 war man gezwungen, Scheln- 
flags zu setzten, um eine unbedingte, rela¬ 
tive Verzweigung zu erzwingen, z.B. CLV 
BVC LABEL. 

DEC A = DEA = Op-Code $3A = Decre- 
ment A 


INC A = INA = Op-Code $1A = Incre- 
ment A 

DEC A vermindert den Akkumulator um 1: 
A = A - 1 und entspricht insoweit den 
DEY- und DEX-Befehien. Die Assembler- 
Syntax ist DEC A, DEC oder DEA. INC A 
erhöht den Akkumulator um 1: A = A -P 1 
und entspricht den INY- und INX-Befeh- 
len. Die Assembler-Syntax ist entspre¬ 
chend INC A, INC oder INA. 

DEC A ersetzt die Folge SEC SBC #1 und 
INC A ersetzt CLC ADC #1, wodurch 
einige Prozessor-Takte eingespart werden 
können. 

PHX = Op-Code $DA = Push X on Stack 
PHY = Op-Code $5A = Push Y on Stack 
PLX = Op-Code $FA = Pull X from Stack 
PLY = Op-Code $7A = Pull Y from Stack 

Bei alten 6502 konnte man nur den Akku¬ 
mulator direkt auf den Stack retten. Wollte 
man auch noch die X- und Y-Register ret¬ 
ten, so mußte man etwa wie folgt ko¬ 
dieren: 

PHA Vorher: A, X und Y auf Stack 

TXA schieben 

PHA 

TYA 

PHA 

PLA Nachher: Y, X und A vom Stack 

TAY holen 

PLA 

TAX 

PLA 

Beim 65C02 geht es nunmehr viel ele¬ 
ganter: 

PHA Vorher: A, X und Y auf Stack 

PHX schieben 

PHY 

PLY Nachher: Y, X und A vom Stack 

PLX holen 

PLA 

Dadurch wird das Programm nicht nur kür¬ 
zer, sondern auch schneller, da jeweils 2 
Befehle eingespart werden. 


STZ $1000 = STZ Absolute Adresse = 
Op-Code $9C 

STZ $1000,X = STZ Absolute Adresse, 
X = Op-Code $9E 

STZ $00 = STZ Zeropage = Op-Code 
$64 

STZ $00,X = STZ Zeropage, X = Op- 
Code $74 


Diese Befehle setzen eine Speicherstelle 
auf Null bzw. Zero $00. Das „Z“ in STZ 
steht nicht für Zeropage-Adressierung, 
sondern für Zero = Null = Byte $00. Die 
Register A, X und Y bleiben unverändert. 
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Kapitalist die Welt verändert. 



Apple hat den Macintosh erfiinden. 


















































Beim 6502 muß man demgegenüber ein 
Register „opfern“, um eine Speicherstel¬ 
le zu löschen, z.B. LDA #$00 STA 
ADRESSE. 

TRB $FFFF = Test and reset memory bits 
with accumulator (Absolute Adresse) = 
Op-Code $1C 

TRB $00 = Test and reset memory bits 
with accumulator (Zeropage-Adresse) = 
Op-Code $14 

Dieser Befehl ist neu und entspricht einem 
AND-Befehl mit umgekehrten Vorzeichen, 
d.h. Undierung mit Einerkomplement des 
Bitmusters. Beim alten 6502 würde man 
etwa wie folgt simulieren: 

LDA BITMUSTER 
AND MEMORY 
EOR #%11111111 
STA MEMORY 

TRB besagt, daß eine Speicherstelle M 
durch den Inhalt des Akkumulators A ver¬ 
ändert wird, wobei A selbst unverändert 
bleibt, und zwar blendet TRB bei M dieje¬ 
nigen Bits weg, die bei A gesetzt sind. 


Beispiele; 

M 1111 1111 LDA #$00 TRB M, wobei M 
A 0000 0000 vorher $FF 

M 1111 1111 M nachher$FF 

M 1111 1111 LDA #$FF TRB M, wobei M 
A 1111 1111 vorher $FF 

M 0000 0000 M nachher $00 

M 0000 0000 LDA #$FF TRB M, wobei M 
A 1111 1111 vorher $00 

M 0000 0000 M nachher $00 

M 0000 0000 LDA #$00 TRB M, wobei M 
A 0000 0000 vorher $00 

M 0000 0000 M nachher $00 

M 1111 1111 LDA #$7E TRB M, wobei M 
A 0111 1110 vorher $FF 

M 1000 0001 M nachher $81 

M 1010 1010 LDA #$F0 TRB M, wobei M 
A 1111 0000 vorher $AA 

M 0000 1010 M nachher $0A 


TSB $FFFF = Test and set memory bits 
with accumulator (Absolute Adresse) = 
Op-Code $0C 

TSB $00 = Test and set memory bits with 
accumulator (Zeropage-Adresse) = Op- 
Code $04 

TSB entspricht dem ORA-Befehl, der je¬ 
doch direkt auf eine Speicherstelle ange¬ 
wandt wird. TSB blendet bei M diejenigen 
Bits hinzu, die bei A zusätziich gesetzt 
sind. Beim alten 6502 würde man dies 
simulieren mit 

LDA BITMUSTER 
ORA MEMORY 
STA MEMORY 

Einige Beispiele: 

M 1111 1111 LDA #$00 TSB M, wobei M 
A 0000 0000 vorher $FF 

M 1111 1111 M nachher$FF 

M 1111 1111 LDA #$FF TSB M, wobei M 
A 1111 1111 vorher $FF 

M 1111 1111 M nachher $FF 

M 0000 0000 LDA #$FF TSB M, wobei M 
A 1111 1111 vorher $00 

M 1111 1111 M nachher $FF 

M 0000 0000 LDA #$00 TSB M, wobei M 
A 0000 0000 vorher $00 

M 0000 0000 M nachher $00 

M 1111 1111 LDA #$7E TSB M, wobei M 
A 0111 1110 vorher $FF 

M 1111 1111 M nachher$FF 

M 1010 1010 LDA #$F0 TSB M, wobei M 
A 1111 0000 vorher $AA 

M 1111 1010 M nachher $FA 

Während die Befehle AND und ORA nur 
den Inhalt des Akkumulators beeinflussen, 
können mit TRB und TSB die Inhalte von 
Speicherstellen direkt verändert werden, 
wobei der Akkumulator unverändert bleibt. 
Die Befehlsfolge lautet stets: 

LDA BITMUSTER 
TSB MEMORY 
oder 

LDA BITMUSTER 
TRB MEMORY 

Nehmen wir an, bei einem Textverarbei- 
tungs-Text, der sich im Speicher $2000- 
$3FFF befände, sollte bei jedem Buchsta¬ 
ben Bit 7 gelöscht werden. Zu diesem 
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^ Feature 



Zweck müßte man beim alten 6502 den 
gesamten Bereich mit der Befehlsfolge 
LOOP LDA M 

AND#%01111111 

STAM 

...jetzt M inkrementieren und erneut zu 
Loop... 

„bearbeiten". Hingegen würde man beim 
neuen 65C02 mit der Schleife 
LDA# %10000000 
LOOP TRB M 

... jetzt M inkrementieren und erneut zu 
Loop... 

zu einer erheblich kürzeren Ausführungs¬ 
zeit kommen. 


BBR, BBS, RMB, SMB 

BBR (Branch on bit reset), BBS (Branch 
on bit set), RMB (Reset memory bit) und 
SMB (Set memory bit) sind laut Auskunft 
der Firma Rockwell nur beim R65C02 als 
Zeropage-Bitmanipulationsbefehle imple¬ 
mentiert. Meine Accelerator-Karte ist mit 
einem NCR-65C02C bestückt, der diese 
Befehle nicht kennt. Dasselbe gilt für den 
im Apple llc befindlichen 65002. Auch der 
Apple-Ilc-Disassembler verwendet die 
neuen Op-Codes nicht. Es wird empfoh¬ 
len, auf die Benutzung dieser OP-Codes 
zu verzichten, um Kompatibilität mit allen 
65C02-Varianten zu gewährleisten. 

Neue Adressierungsarten 

Indirekte nicht-indizierte Adressierung 

Anstelle der häufig benutzten Adressie¬ 
rungsform 
LDA (INDIREKT), Y 

usw., die bislang nur mit Hilfe des Y-Regi- 
sters implementiert werden konnte, be¬ 
steht nunmehr die zusätzliche Möglichkeit, 
auf Y völlig zu verzichten. Im einzelnen gilt 
dies für folgende Befehle: 

LDA (INDIREKT) = Op-Code $B2; neben 
LDA (INDIREKT), Y 

STA (INDIREKT) = Op-Code $92; neben 
STA (INDIREKT), Y 

ORA (INDIREKT) = Op-Code $12; neben 
ORA (INDIREKT), Y 

EOR (INDIREKT) = Op-Code $52; neben 
EOR (INDIREKT), Y 

AND (INDIREKT) = Op-Code $32; neben 
AND (INDIREKT), Y 

ADO (INDIREKT) = Op-Code $72; neben 
ADC (INDIREKT). Y 

SBC (INDIREKT) = Op-Code $F2; neben 
SBC (INDIREKT), Y 

CMP (INDIREKT) = Op-Code $D2; neben 
CMP (INDIREKT), Y 


Dies ist eine nützliche Erweiterung, da 
man nunmehr bei Array-Manipulationen 
nicht mehr permanent das Y-Register ret¬ 
ten bzw. für die indizierte Adressierungs¬ 
form freihalten muß. 

BIT-Adressierung 

Der BIT-Befehl wurde um drei neue 
Adressierungsarten erweitert. Insgesamt 
gibt es jetzt folgende BIT-Instruktionen: 

BIT $00 Zeropage-Adressierung (alt) - 
Op-Code $2C 
BIT $1000 Absolute 
Adressierung (alt) - Op-Code $24 
BIT $00,X Indizierte Zeropage-Adressie- 
rung (neu) - Op-Code $34 
BIT $1000,X Indizierte absolute Adressie¬ 
rung (neu) - Op-Code $3C 
BIT #$00 Unmittelbare Adressierung 
(neu) - Op-Code $89 

Die unmittelbare Adressierungsform 
scheint mir nutzlos zu sein, da hiermit 
nicht Bit 7 (N-Flag) und Bit 6 (V-Flag) 
getestet werden können, was für alle an¬ 
deren BIT-Adressierungsarten zuthfft. 

Indizierter, indirekter JMP 

JMP ($1000,X) - Op-Code $7C - ist eine 
wertvolle Erweiterung des indirekten 
Sprungs für den Fall, daß eine Sprung¬ 
adresse einer Tabelle entnommen werden 
soll. Nehmen wir an, ab Speicherstelle 
$1000 steht folgende fingierte Sprungta¬ 
belle: 

1000: 00 20 $2000 0. Sprung 
1002: 00 30 $3000 1. Sprung 
1004: 00 40 $4000 2. Sprung usw. 
Nehmen wir fernerhin an, der zweite 
Sprung sei auszuführen. Dann verfahren 
wir wie folgt: 

LDA #2 ;2. Sprung 

ASL ;2*2 = 4 = $1004 

TAX 

JMP($1000,X) :entspricht JMP $3000 
D.h. $1000 + X = $1004 enthält das Low 
Byte und $1004 + 1 = $1005 enthält das 
High Byte der effektiven Sprungadresse. 

Das nachfolgende „65C02-Demo einiger 

neuer Op-Codes“ veranschaulicht die 
Anwendung der neuen Befehle und 
Adressierungsarten. Dieses Demo zeigt 
übrigens folgende Hexzahlen und ASCII- 
Zeichen an: 

030201 

01 

BCA 

OAAF 


Zur Assemblierung wurde der zu den von 
Firma Apple herausgegebenen „ProDOS 
Assembler Tools" gehörige 6502-Assem- 
bler verwendet, der ebenso wie der „ Bug- 
byter Debugger“ die neuen Befehle verar¬ 
beitet. Der Assembler-Quellcode muß zu 
diesem Zweck mit dem Pseudo-Op-Code 
„X6502" eingeleitet werden. 

Zusätzlich zu dem Source-Code des 
65C02-Demos wird das disassemblierte 
Listing in der Form abgedruckt, wie es mit 
dem „65C02-Disassembler", der im 
nachfolgenden Aufsatz geschildert wird, 
erzeugt werden kann. 


Schiußbemerkung 

a) Da der Apple II Plus und der Apple Ile 
im Gegensatz zum Apple llc „von Hause 
aus" den 65C02 nicht enthalten, sollte 
man in kommerziellen Programmen, die 
für alle Gerätetypen gedacht sind, auf die 
neuen Op-Codes verzichten. 

b) Bei eigenen Programmen lohnt es sich 
U.U., den alten Apple II Plus bzw. Apple Ile 
mit dem neuen 65C02 zu bestücken und 
die neuen Op-Codes zu verwenden, da 
Programme dann etwas kompakter und 
zugleich etwas schneller werden. Der Vor¬ 
teil ist jedoch nur in Spezialfällen überzeu¬ 
gend. Grundsätzlich kann man auch ohne 
die neuen Op-Codes auskommen. 

c) Wichtiger scheint mit der Umstand, daß 
der 65C02 weniger Wärme entwickelt. 
Wer sich z.B. noch an die „brütende Hit¬ 
ze" der alten Videx-Karte im Apple II Plus 
zurückerinnern kann, der wird von der 
„wohligen Kühle" der Accelerator-Ile-Kar- 
te im Apple Ile angenehm überrascht sein. 
Ventilatoren werden dann überflüssig. 

d) Der 65C02-Prozessor wird erst dann 
richtig munter, wenn er mit mehr als 1 
MHz getaktet ist, d.h. mit etwa einem 3,5- 
MHZ-65C02 und der Verwendung der 
neuen Op-Codes laufen entsprechende 
Programme bis zu 400% schneller als vor¬ 
her, womit ein 65C02C durchaus an die 
Leistungsfähigkeit von 16-Bit-Prozesso- 
ren heranreichen kann. Deshalb ist es be¬ 
dauerlich und unverständlich, weshalb die 
Firma Apple den Apple Ile und Apple llc 
nicht mit den schnelleren Prozessor-Va¬ 
rianten bestückt hat. 
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1 


z’’ , 1 


0300: 


0300 

1 

ORG 

$300 

1 

0300: 



2 * 



1 

0300: 



3 * 65C02C- 

-Demo einiger neuer Op-Codes ' 

0300: 



4 * - 



-- 1 

0300: 



5 * 



1 

0300: 


0300 

6 

X6502 


;65C02C-Pseudo-0p 

0300: 



7 * 




0300: 


OOCE 

8 IND 

EQU 

$CE 


0300: 


FDED 

9 COUT 

EQU 

$FDED 

;PRINT 

0300: 


FDDA 

10 PRBYTE 

EQU 

$FDDA 

;HEXOUT 

0300: 



11 * 




0300: 



12 # 




0300; 



13 * Unbedingte, relative Verzweigung 

0300: 



14 * 




0300:80 

01 

0303 

L5 

BRA 

STETS 

;Vorzeigung erfolgt stets 

0302:00 



16 

BRK 


;BRK wird übersprungen! 

0303; 



17 * 




0303: 



18 * Push/Pull X/Y on/from Stack 


0303: 



19 * 




0303:A2 

01 


20 STETS 

LDX 

+1 


0305:A0 

02 


21 

LDY 

*2 


0307:A9 

03 


22 

LDA 

*3 


0309:DA 



23 

PHX 


;Push X auf Stack 

030A:5A 



24 

PHY 


;Push,Y auf Stack 

030B:48 



25 

PHA 



030C:68 



26 

PLA 



030D;20 

DA 

FD 

27 

JSR 

PRBYTE 


0310;7A 



28 

PLY 


;Pull Y vom Stack 

0311:98 



29 

TYA 



0312:20 

DA 

FD 

30 

JSR 

PRBYTE 


0315:FA 



31 

PLX 


;Pull X vom Stack 

0316;8A 



32 

TXA 



0317:20 

DA 

FD 

33 

JSR 

PRBYTE 


031A: 



34 # 




031A:A9 

8D 


35 

LDA 

#$8D 

;Return 

031C:20 

ED 

FD 

36 

JSR 

COUT 


031F; 



37 * 




031F: 



38 * $1000. 

$10FF, 

$00FE und $00FF auf 1 setzen 

03IF: 



39 # 




031F:A9 

01 


40 

LDA 

*1 


0321;A2 

FF 


41 

LDX 

+$FF 


0323;8D 

00 

10 

42 

STA 

$1000 


0326:9D 

00 

10 

43 

STA 

$1000,X 


0329:85 

FE 


44 

STA 

$00FE 


032B:95 

00 


45 

STA 

$0000,X 



032D: 

032D: 

032D: 

032D: 

032D: 


033F: 

033F: 

033F: 

033F: 


46 

47 

48 

49 

50 


032D;9C 

00 

10 

51 

STZ 

$1000 

0330:9E 

00 

10 

52 

STZ 

$1000,X 

0333:64 

FE 


53 

STZ 

$00 FE 

0335:74 

00 


54 

STZ 

$0000,X 

0337:20 

DA 

FD 

55 

JSR 

PRBYTE 

033A:A9 

8D 


56 

LDA 

#$8D 

033C:20 

ED 

FD 

57 

JSR 

COUT 


58 

59 

60 
61 


$1000, $10FF, $00FE und $00FF auf 0 setzen 
STZ = Store Zero entspricht LDA *$00 STA Adresse 
A-Register bleibt jedoch unverändert! 


;A noch 1! 
;Return 


INC A (= INA) und DEC A (= DEA) 
Increment/Decrement von A-Register 


033F:A9 

C2 


62 


LDA 

#'B'+$80 


0341:20 

ED 

FD 

63 


JSR 

COUT 

■B' 

0344:1A 



64 


INC 

A 

A=A-f-l 

0345:20 

ED 

FD 

65 


JSR 

COUT 

’C 

0348:3A 



66 


DEC 

A 

A=A-1 

0349;3A 



67 


DEC 

A 

A=A-1 

034A:20 

ED 

FD 

68 


JSR 

COUT 

■A' 

034D:A9 

8D 


69 


LDA 

*$8D 

Return 

034F:20 

ED 

FD 

70 


JSR 

COUT 


0352: 



71 





0352: 



72 

* 

Test Memory 

Bits with Accumulator 

0352: 



73 

* 




0352:A9 

FO 


74 


LDA 

+%11110000 


0354:IC 

85 

03 

75 


TRB 

BYTEl 

;Reset 1 

0357:A9 

OF 


76 


LDA 

*%00001111 


0359:0C 

86 

03 

77 


TSB 

BYTE2 

;Set Bi 

035C:AD 

85 

03 

78 


LDA 

BYTEl 


035F:20 

DA 

FD 

79 


JSR 

PRBYTE 


0362:A9 

AO 


80 


LDA 

+$A0 


0364:20 

ED 

FD 

81 


JSR 

COUT 


0367:AD 

86 

03 

82 


LDA 

BYTE2 


036A:20 

DA 

FD 

83 


JSR 

PRBYTE 


036D:60 



84 


RTS 


;Ende 

036E: 



85 

* 




036E: 



86 

* 

Indirekt Adressierung ohne Y 


036E: 



87 

* 




036E:B2 

CE 


88 


LDA 

(IND) 



0370:92 

CE 

89 

STA 

(IND) 

0372: 


90 * 



0372:12 

CE 

91 

ORA 

(IND) 

0374:52 

CE 

92 

EOR 

(IND) 

0376:32 

CE 

93 

AND 

(IND) 

0378: 


94 * 



0378:72 

CE 

95 

ADC 

(IND) 

037A:F2 

CE 

96 

SBC 

(IND) 

037C: 


97 * 



037C:D2 

CE 

98 

CMP 

(IND) 

037E: 


99 * 



037E: 


100 * 

Neue BIT-Adressierungsarten 

037E: 


101 » 



037E:89 

AO 

102 

BIT 

#$A0 

0380:34 

AO 

103 

BIT 

$AO,X 

0382:3C 

00 AO 

104 

BIT 

$AOOO,X 

0385: 


105 * 



0385:AA 


106 BYTEl DFB 

%10101010 

0386:AA 


107 BYTE2 DFB 

%10101010 

Disassembler-Listing zu 


„65C02-Demo einiger neuer Op-Codes“ 

0300- 

80 01 

BRA 

$0303 


0302- 

00 

BRK 



0303- 

A2 01 

LDX 

#$01 


0305- 

AO 02 

LDY 

#$02 


0307- 

A9 03 

LDA 

#$03 


0309- 

DA 

PHX 



030A- 

5A 

PHY 



030B- 

48 

PHA 



030C- 

68 

PLA 



030D- 

20 DA FD 

JSR 

$FDDA 


0310- 

7A 

PLY 



0311- 

98 

TYA 



0312- 

20 DA FD 

JSR 

$FDDA 


0315- 

FA 

PLX 



0316- 

8A 

TXA 



0317- 

20 DA FD 

JSR 

$FDDA 


031A- 

A9 8D 

LDA 

+$8D 


031C- 

20 ED FD 

JSR 

$FDED 


031F- 

A9 01 

LDA 

#$01 


0321- 

A2 FF 

LDX 

#$FF 


0323- 

8D 00 10 

STA 

$1000 


0326- 

9D 00 10 

STA 

$1000,X 


0329- 

85 FE 

STA 

$FE 


032B- 

95 00 

STA 

$00, X 


032D- 

9C 00 10 

STZ 

$1000 


0330- 

9E 00 10 

STZ 

$1000,X 


0333- 

64 FE 

STZ 

$FE 


0335- 

74 00 

STZ 

$00, X 


0337- 

20 DA FD 

JSR 

$FDDA 


033A- 

A9 8D 

LDA 

#$8D 


033C- 

20 ED FD 

JSR 

$FDED 


033F- 

A9 C2 

LDA 

#$C2 


0341- 

20 ED FD 

JSR 

$FDED 


0344- 

lA 

INC 



0345- 

20 ED FD 

JSR 

$FDED 


0348- 

3A 

DEC 



0349- 

3A 

DEC 



034A- 

20 ED FD 

JSR 

$FDED 


034D- 

A9 8D 

LDA 

#$8D 


034F- 

20 ED FD 

JSR 

$FDED 


0352- 

A9 FO 

LDA 

#$F0 


0354- 

IC 85 03 

TRB 

$0385 


0357- 

A9 OF 

LDA 

*$0F 


0359- 

OC 86 03 

TSB 

$0386 


035C- 

AD 85 03 

LDA 

$0385 


035F- 

20 DA FD 

JSR 

$FDDA 


0362- 

A9 AO 

LDA 

*$A0 


0364- 

20 ED FD 

JSR 

$FDED 


0367- 

AD 86 03 

LDA 

$0386 


036A- 

20 DA FD 

JSR 

$FDDA 


036D- 

60 

RTS 



036E- 

B2 CE 

LDA 

($CE) 


0370- 

92 CE 

STA 

($CE) 


0372- 

12 CE 

ORA 

($CE) 


0374- 

52 CE 

EOR 

($CE) 


0376- 

32 CE 

AND 

($CE) 


0378- 

72 CE 

ADC 

($CE) 


037A- 

F2 CE 

SBC 

($CE) 


037C- 

D2 CE 

CMP 

($CE) 


037E- 

89 AO 

BIT 

#$A0 


0380- 

34 AO 

BIT 

$AO,X 


0382- 

3C 00 AO 

BIT 

$A000,X 


0385- 

AA 

TAX 



0386- 

AA 

TAX 
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Huihis-FACHBUCH-TIP 




Apple Assembler 

Tips und Tricks 

von Ulrich Stiehl 

1984, 226S., 3 Abb., kart., 

DM34,- 

ISBN 3-7785-1047-9 
Hüthig Verlag, Heidelberg 

„Apple Assembler“ wendet sich 
an alle, die bereits Anfängerkennt¬ 
nisse der 6502-Programmierung 
haben - z.B. aufgrund des Buches 
„Apple Maschinensprache“ - und 
nunmehr ein Nachschlagewerk für 
ihren Apple II Plus/Ile/Ilc suchen, 
in dem alle wichtigen ROM-Routi- 
nen sowie eine Vielzahl sonstiger 
Hilfsprogramme in einer systemati¬ 
schen Form zusammengesteilt 
werden. Insgesamt umfaßt dieses 
Buch über 40 Utilities, darunter 
mehrere völlig neuartige Program¬ 
me wie Double-Lores, Double Hi- 
res, Screen-Format u.a. 

Der erste Teil enthält ein Repetito¬ 
rium der wichtigsten Befehle, 
Adressierungsarten und sonstigen 
Besonderheiten des 6502. 



Im zweiten Teil werden alle Adres¬ 
sen des Monitors zusammenge¬ 
stellt, die für Assembler-Program¬ 
mierer von Nutzen sein können. 
Darüber hinaus findet der Leser Un¬ 
terroutinen für hexadezimale Ad¬ 
dition/Subtraktion/Multiplikation/ 
Division, Binär-Hex-ASCII-Um- 
wandlung usw. 

Der dritte Teil befaßt sich mit der 
Speicherverwaltung der Language 
Card und der Ile-64K-Karte und 
enthält Move-Programme zum 
Verschieben von Daten in die und 
aus der Language Card sowie der 
64K-Karte. 

Der vierte Teil ist dem Applesoft- 
ROM gewidmet und listet eine 
große Anzahl nützlicher Interpre¬ 
ter-Adressen. Bei den Utility-Pro¬ 
grammen liegt das Schwergewicht 
auf Fließkommamathematik ein¬ 
schließlich Print Using. 


Der letzte Teil behandelt den Text¬ 
end Graphikspeicher. Neben ei¬ 
nem professionellen Maskengene¬ 
ratorprogramm werden auch Routi¬ 
nen zur Double-Lores- und Dou- 
ble-Hires-Grafik vorgestellt. 

Aus dem Inhalt: 

6520-Repetitorium - Monitor-ROM 
- Speicherverwaltung - Applesoft- 
ROM-Text- und Grafikspeicher 




65C02-Disassembler 

für Apple Ile und II Plus 


Dieser hier vorgesteüte 65C02-Disas- 
sembier basiert auf dem im Jahre 1977 
von Steve Wozniak geschriebenen 
6502-Disassembier, der später für den 
Appie ilc gepatcht und von uns nun¬ 
mehr für den Appie ii Plus und Ile modi¬ 
fiziert wurde. Da unsere Variante die 
neuen Op-Codes selbst nicht benutzt, 
kann sie auch als “Cross“-Disassem- 
bler auf denjenigen Apple-Modellen 
eingesetzt werden, die nicht mit dem 
65C02-Prozessor bestückt sind. 


Wenn man sich in seinen Apple Ile oder 
Apple II Plus einen 65C02-Prozessor ein¬ 
gebaut hat oder wenn man eine Acceiera- 
tor-lle-Karte benutzt, wird einem erst rich¬ 
tig bewußt, wie wertvoll der im Monitor- 
ROM enthaltene Disassembler ist, denn 
dieser funktioniert jetzt nicht mehr. Ge¬ 
nauer gesagt, werden die neuen Op- 
Codes des 65C02 als „???“ gelistet. Der 
Apple Ilc enthält zwar in dem umgeschrie¬ 
benen Monitor-ROM einen für den 65C02 
gepatchten Disassembler, aber dieser läßt 
sich nicht ohne weiteres in die Language 
Card des Apple He oder II Plus kopieren, 
da er teilweise Routinen überschreiben 
würde, die dringend benötigt werden, z.B. 
bei $FAB8 die PWRUP-Routine (Power- 
Up, Disk-Booten). Grundsätzlich gilt: Der 
ROM-Bereich $D000-$FFFF (Applesoft- 
Interpreter und Monitor) des Apple II und II 
Plus läßt sich in die Language Card des 
Apple Ile kopieren. Dagegen läßt sich we¬ 
der der ROM-Bereich des Apple Ile noch 
der des Ilc in die LC des Apple II oder II 
Plus schieben. Ferner kann auch der 
ROM-Bereich des Apple Ile nicht in die LC 
des Apple Ilc verlegt werden und umge¬ 
kehrt. Die Gründe hierfür liegen in dem 
INTCXROM-Bereich $C100-$CFFF, der 
beim Apple II Plus fehlt und beim Apple Ile 
und Ilc völlig unterschiedliche Einsprung¬ 
adressen hat. 

Deshalb habe ich den im Apple ilc enthal¬ 
tenen 65C02-Disassembler dergestalt 
modifiziert, daß er uneingeschränkt auf 
dem Apple Ile und II Plus lauffähig ist. 
Allerdings mußten aus Platzgründen die 
Lores-Grafik-Routinen teils überschrieben 
werden, die deshalb nicht benutzt werden 
dürfen, während der modifizierte Monitor 
in der Language Card aktiv ist. Notfalls 
muß man den Bereich $F82A-$F878 aus 
dem Lores-Bereich heraus in einen ande¬ 
ren Bereich verlegen. 

Es wurde darauf geachtet, daß der Disas¬ 
sembler die neuen Op-Codes selbst nicht 
benutzt, so daß man damit sogar 65C02- 
Maschinenprogramme disassemblieren 
kann, wenn man nicht über einen 65C02- 
Prozessor verfügt. 


Das Programm „65C02-DISASSEM- 
BLER“ gliedert sich in folgende Teile: 

$6000-$604D enthält eine Move-Routine, 
die den eigentlichen Disassembler, der 
zunächst im Speicher ab $604E liegt, in 
die Language Card verschiebt. 

$F82A-$F878 enthält eine Erweiterung 
des alten 6502-Disassemblers. Aus Platz¬ 
gründen mußte die Program-Counter-Ad- 
just-Routine nach $F86A verschoben wer¬ 
den, doch steht an der ursprünglichen 
Stelle von PCADJ = $F953 ein Sprung 
nach $F86A, so daß die Kompatibilität mit 
den anderen Monitor-Routinen gewahrt 
bleibt. 

$F879-$FA3F enthält den Haupttei! des 
Apple Ilc-Disassemblers mit einigen Pat¬ 
ches für den Apple Ile und II Plus. Man 
beachte, daß es zwei Mnenomics-Tabel- 
len gibt, und zwar zum einen die erweiter¬ 
te alte Mnenomics-Tabelle ab $F9F9 so¬ 
wie zum anderen eine neue Mnemonics- 
Tabelle ab $F853. Der 65C02-Disassem- 
bler berücksichtigt alle Mnemonics, die in 
den Programmzeilen 514-585 gelistet 
sind. Dazu gehören nicht die Befehle BBR, 
BBS, RMB und SMB, über die der Rock¬ 
well R65C02 zusätzlich verfügt; diese 
werden als „???“ gelistet. 

Für diejenigen, die den Disassembler - 
z.B. wegen der nicht berücksichtigen Op- 
Codes - ändern wollen, ist nachfolgend 
der Source-Code gelistet. Da man dieses 
Programm infolge der mehrfachen ORGs 
in den Zeilen 1 und 120 als Assembier- 
Hexdump nur mit Mühe eingeben könnte, 
ist außerdem noch ein „normaler“ Hex¬ 
dump hinzugefügt. 

US 








nz ^ Feature 





1 


ORG $6000 




2 

* 





3 

# 65C02- 

DISASSEHBLER 




4 

* 1- - 





5 

6 

* 





7 

* 

* 




8 

* Move- 

Routine * 




9 

* 

* 




10 

*#**#********#*##* 




11 

* 





12 

* APSOFT 

= Interpreter + Monitor 




13 

* 

$D000-$FFFF 




14 

* PEST 

= Sonstiger Monitor 




15 

* 

SFA40-$FFFF 




16 

* 





17 

APSOFT 

EQU $D000 




18 

REST 

EQU $FA40 




19 

INDl 

EQU $FC ;-$FD 




20 

IND2 

EQU $FE ;-$FF 




21 

* 





22 

* Language Card schreibfähig 




23 

* machen 

: Read ROM, Write LC 




24 

* 


6000: 

AD 

81 CO 

25 

MOVEl 

LDA $C081 ;RDR0M 

6003; 

AD 

81 CO 

26 


LDA SCOSl jWRRAM 




27 






28 

* ROM ab 

$D000-$FFFF in LC 




29 

* kopieren: Applesoft + F8-R0M 




30 



6006: 

AO 

00 

31 


LDY #0 

6008: 

84 

FC 

32 


STY INDl 

600A: 

A9 

DO 

33 


LDA #>APS0FT 

600C: 

85 

FD 

34 


STA INDl+1 

600E: 

Bl 

FC 

35 

M0VE2 

LDA (INDl),Y ;LOADROM 

6010: 

91 

FC 

36 


STA (IND1),Y jSTORELC 

6012: 

C8 


37 


INY 

6013: 

DO 

F9 

38 


BNE M0VE2 

6015: 

E6 

FD 

39 


INC INDl+1 

6017: 

DO 

F5 

40 


BNE M0VE2 ;-$FFFF 




41 

* 





42 

* $F82A-$FA3F mit neuem 




43 

* Disassembler überschreiben 




44 

* 





45 

* INDl: 

$604E 




46 

* 


6019 J 

A9 

4E 

47 


LDA +<M0VE6+1 

60IB; 

85 

FC 

48 


STA INDl 

60 ID: 

A9 

60 

49 


LDA +>M0VE6 

601F: 

85 

FD 

50 


STA INDl+1 




51 

* 





52 

* IND2: 

$F82A 




53 

* 


6021: 

A9 

2A 

54 


LDA #<NEU1 

6023: 

85 

FE 

55 


STA IND2 

6025: 

A9 

F8 

56 


LDA #>NEU1 

6027: 

85 

FF 

57 


STA IND2+1 




58 

* 


6029: 

AO 

00 

59 


LDY #0 

602B: 

Bl 

FC 

60 

M0VE3 

LDA (INDl),y 

602D: 

91 

FE 

61 


STA (IND2),Y 

602F: 

E6 

FC 

62 


INC INDl 

6031: 

DO 

02 

63 


BNE M0VE4 

6033: 

E6 

FD 

64 


INC INDl+1 

6035: 

E6 

FE 

65 

M0VE4 

INC IND2 

6037: 

DO 

02 

66 


BNE M0VE5 

6039: 

E6 

FF 

67 


INC IND2+1 

603B: 

A5 

FF 

68 

M0VE5 

LDA IND2+1 

603D: 

C9 

FA 

69 


CMP #>REST 

6G3F: 

90 

EA 

70 


BCC M0VE3 ;<$FA00 

6041: 

A5 

FE 

71 


LDA IND2 

6043: 

C9 

40 

72 


CMP #<REST 

6045: 

90 

E4 

73 


BCC M0VE3 ;<$FA40 




74 

* 





75 

* LC lese- UND schreibfähig 




76 

# machen 

: Bank 2 R/W enable 




77 

* 


6047: 

AD 

83 CO 

78 


LDA $C083 ;RDLC 

604A: 

AD 

83 CO 

79 


LDA $C083 ;WRLC 

604D; 

60 


80 

M0VE6 

RTS ;Exit 




81 

* 



82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 
119 


■ Apple IIc Disassembler 

• für 65C02-Processor, 

* 

* umgeschrieben für Ile, 

* 

* II Plus von U.Stiehl 


* Verwendbar auf Apple II Plus 
mit Language Card sowie auf 

* Apple Ile, Disassemblierung 

* ist sowohl möglich mit als 

* auch ohne 65C02-Processor, 

* da der Disassembler selbst 

* die neuen Op-Codes NICHT 

* benutzt! 

* 

* Achtung: Lores-Grafik-Routinen 

* ab $F800 werden teils über- 

* schrieben und dürfen nicht 

* aufgerufen werden! 


* 


+ Externe Routinen 

* 

PRYX2 

EQU $FD96 

PRBYTE 

EQU $FDDA 

COUT 

EQU $FDED 


* Disassembler-Beginn: $F82A 






120 


ORG 

$F82A 





121 




F82A: 

98 



122 

NEUl 

TYA 


F82B: 

A2 

16 


123 


LDX 

#$16 

F82D: 

DD 

3C 

F8 

124 

NEU2 

CMP 

NEUTAB1,X 

F830: 

FO 

04 


125 


BEQ 

NEU3 

F832: 

CA 



126 


DEX 


F833: 

10 

F8 


127 


BPL 

NEU2 

F835: 

60 



128 


RTS 






129 

* 



F836: 

BD 

53 

F8 

130 

NEU3 

LDA 

NEUTAB2,X 

Fa39: 

AO 

00 


131 


LDY 

#$00 

F83B: 

60 



132 


RTS 



133 

134 

135 


F83C; 

12 

136 

HEUTAB1 HEX 

12 

F83D: 

14 

137 

HEX 

14 

F83E: 

lA 

138 

HEX 

lA 

F83F; 

IC 

139 

HEX 

IC 

F840: 

32 

140 

HEX 

32 

F841: 

34 

141 

HEX 

34 

F842: 

3A 

142 

HEX 

3A 

F843: 

3C 

143 

HEX 

3C 

F844: 

52 

144 

HEX 

52 

F845: 

5A 

145 

HEX 

5A 

F846: 

64 

146 

HEX 

64 

F847: 

72 

147 

HEX 

72 

F848: 

74 

148 

HEX 

74 

F849: 

7A 

149 

HEX 

7A 

F84A: 

7C 

150 

HEX 

7C 

F84B: 

89 

151 

HEX 

89 

F84C: 

92 

152 

HEX 

92 

F84D: 

9C 

153 

HEX 

9C 

F84E: 

9E 

154 

HEX 

9E 

F84F: 

B2 

155 

HEX 

B2 

F850: 

D2 

156 

HEX 

D2 

F851: 

F2 

157 

HEX 

F2 

F852: 

FC 

158 

HEX 

FC 


;SOO 


;10 


159 

160 
161 


F853: 

38 

162 NEUTAB2 

HEX 

38 

ORA 

F854: 

43 

163 

HEX 

43 

TRB 

F855: 

37 

164 

HEX 

37 

INC 

F856: 

43 

165 

HEX 

43 

TRB 

F857: 

39 

166 

HEX 

39 

AND 

F858: 

21 

167 

HEX 

21 

BIT 

F859; 

36 

168 

HEX 

36 

DEC 

F85A: 

21 

169 

HEX 

21 

BIT 


15 



















F85B; 3A 


170 


HEX 3A ;EOR 

F85C: 40 


171 


HEX 40 ;PHY 

F85D: 42 


172 


HEX 42 ;STZ 

F85E: 3B 


173 


HEX 3B ;ADC 

F85F: 42 


174 


HEX 42 ; STZ 

F860: 41 


175 


HEX 41 ;PLY 

F861: 22 


176 


HEX 22 ;JMP 

F862: 21 


177 


HEX 21 ;BIT 

F863: 3C 


178 


HEX 3C :STA 

F864: 42 


179 


HEX 42 ;STZ 

F865: 42 


180 


HEX 42 ;STZ 

F866: 3D 


181 


HEX 3D ;LDA 

F867: 3E 


182 


HEX 3E ;CMP 

F868: 3F 


183 


HEX 3F ;SBC 

F869: 44 


184 


HEX 44 ;??? 



185 

* 




186 





187 

* 




188 

* PC-Adjust aus Platzgründen 



189 

* an diese Stelle verschoben. 



190 

» Ursprünglich ab $F953, 



191 

* wo jetzt ein JMP steht. 



192 

* 


F86A: 38 


193 

PCADJ 

SEC t $F953 

F86B: A5 2F 


194 

PCADJ2 

LDA $2F 

F86D: A4 3B 


195 

PCADJ3 

LDY $3B 

F86F: AA 


196 


TAX 

F870: 10 01 


197 


BPL PCADJ4 

F872: 88 


198 


DEY 

F873: 65 3A 


199 

PCADJ4 

ADC $3A 

F875: 90 01 


200 


BCC RTS2 

F877: C8 


201 


INY 

F878: 60 


202 

RTS2 

RTS 



203 

* 




204 

*-—^ 




205 

* 




206 

* Apple 

IIc ROM-Kopie ab $F879 



207 

* mit diversen Patches, da sich 



208 

* die Opcodes TRB, PHY, PLY usw. 



209 

* im IIc 

-ROM bei $FAB8-$FABC 



210 

# und $FAF8-$FAFC befinden. 



211 

* wo beim Apple II Plus und 



212 

* Ile unentbehrliche Monitor- 



213 

* Routinen stehen. 



214 

* 


F879: 90 04 


215 

SCRN2 

BCC RTMSKZ 

F87B: 4A 


216 


LSR 

F87C: 4A 


217 


LSR 

F87D: 4A 


218 


LSR 

F87E: 4A 


219 


LSR 

F87F: 29 OF 


220 

RTMSKZ 

AND +$0F 

FS81: 60 


221 


RTS 

F882: A6 3A 


222 

INSDSI 

LDX $3A 

F884: A4 3B 


223 


LDY $3B 

F886: 20 96 

FD 

224 


JSR PRYX2 

F889: 20 48 

F9 

225 


JSR PRBLNK 

F88C: Al 3A 


226 


LDA ($3A,X) 

F88E: A8 


227 


TAY 

F88F: 4A 


228 


LSR 

F890: 90 05 


229 


BCC INSDSIA 

F892: 6A 


230 


ROR 

F893: BO OC 


231 


BCS lEVEN 

F895: 29 87 


232 


AND #$87 

F897: 4A 


233 

INSDSIA 

LSR ttlOU 

F890: AA 


234 


TAX 

F899: BD 56 

F9 

235 


LDA FMTl.X 

F89C: 20 79 

F8 

236 


JSR SCRN2 

F89F; DO 04 


237 


BNE GETFMT 

F8A1; AO FC 


238 

lEVEN 

LDY #$FC :SF8Aiä 

F8A3: A9 00 


239 


LDA #$00 

F8A5: AA 


240 

GETFMT 

TAX :SF8A5t 

F8A6: BD 9A 

F9 

241 


LDA FMT2,X 

F8A9: 85 2E 


242 


STA $2E 

F8AB; 29 03 


243 


AND #$03 

F8AD: 85 2F 


244 


STA $2F 

F8AF: 20 2A 

F8 

245 


JSR NEUl l\\\ 

F8B2: FO 18 


246 


BEQ RTSNEU 

F8B4: 29 8F 


247 


AND #$8F 

F8B6: AA 


248 


TAX 

F8B7: 98 


249 


TYA 

F8B8; AO 03 


250 


LDY +$03 

F8BA: EO 8A 


251 


CPX #$8A 

F8BC: FO OB 


252 


BEQ MNNDX3 

F8BE: 4A 


253 

MNNDXl 

LSR 

FSBF: 90 08 


254 


BCC MNNDX3 

F8C1: 4A 


255 


LSR 

F8C2: 4A 


256 

MNNDX2 

LSR 

F8C3; 09 20 


257 


ORA #$20 


F8C5: 88 

258 


DEY 


F8C6: DO FA 

259 


BNE 

MNNDX2 

F8C8: C8 

260 


INY 


F8C9: 88 

261 

MNNDX3 

DEY 


F8CA: DO F2 

262 


BNE 

MNNDXl 

F8CC: 60 

263 

RTSNEU 

RTS 

;neu 


264 

* 



F8CD: FF FF FF 

265 


HEX 

FFFFFF ;Füller 


266 

* 




267 

* Wird 

von $FE64 angesprungen 


268 

* 



F8D0: 20 82 F8 

269 

INSTDSP 

JSR 

INSDSl ;extern 

FSD3; 48 

270 


PHA 


F8D4: Bl 3A 

271 

PRNTOP 

LDA 

($3A),Y 

F8D6: 20 DA FD 

272 


JSR 

PRBYTE 

F8D9: A2 01 

273 


LDX 

#$01 

F8DB: 20 4A F9 

274 

PRNTBL 

JSR 

PRBL2 

FSDE: C4 2F 

275 


CPY 

$2F 

F8E0: C8 

276 


INY 


F8E1: 90 Fl 

277 


BCC 

PRNTOP 

F8E3: A2 03 

278 


LDX 

#$03 

F8E5: CO 04 

279 


CPY 

+$04 

F8E7: 90 F2 

280 


BCC 

PRNTBL 

F8E9: 68 

281 


PLA 


F8EA: A8 

282 


TAY 


F8EB: B9 B4 F9 

283 


LDA 

MNEML.Y 

F8EE: 85 2C 

284 


STA 

$2C 

F8F0: B9 F9 F9 

285 


LDA 

MNEMR.Y 

F8F3: 85 2D 

286 


STA 

$2D 

F8F5: A9 00 

287 

PRMNl 

LDA 

#$00 

F8F7: AO 05 

288 


LDY 

#$05 

F8F9: 06 2D 

289 

PRNM2 

ASL 

$2D 

F8FB: 26 2C 

290 


ROL 

$2C 

F8FD: 2A 

291 


ROL 


F8FE: 88 

292 


DEY 


F8FF: DO F8 

293 


BNE 

PRNM2 

F901: 69 BF 

294 


ADC 

#$BF 

F903: 20 ED FD 

295 


JSR 

COUT 

F906: CA 

296 


DEX 


F907: DO EC 

297 


BNE 

PRMNl 

F909: 20 48 F9 

298 


JSR 

PRBLNK 

F90C: A4 2F 

299 


LDY 

$2F 

F90E: A2 06 

300 


LDX 

#$06 

F910: EO 03 

301 

PRADRl 

CPX 

#$03 

F912: FO IC 

302 


BEQ 

PRADR5 

F914: 06 2E 

303 

PRADR2 

ASL 

$2E 

F916: 90 OE 

304 


BCC 

PRADR3 

F918: BD AD F9 

305 


LDA 

CHAR2,X 

F91B: 20 ED FD 

306 


JSR 

COUT 

F91E: BD A7 F9 

307 


LDA 

CHARl,X 

F921; FO 03 

308 


BEQ 

PRADR3 

F923; 20 ED FD 

309 


JSR 

COUT 

F926: CA 

310 

PRADR3 

DEX 


F927: DO E7 

311 


BNE 

PRADRl 

F929: 60 

312 


RTS 


F92A: 88 

313 

PRADR4 

DEY 


F92B: 30 E7 

314 


BMI 

PRADR2 

F92D: 20 DA FD 

315 


JSR 

PRBYTE 

F930: A5 2E 

316 

PRADR5 

LDA 

$2E 

F932: C9 E8 

317 


CMP 

#$E8 

F934: Bl 3A 

318 


LDA 

($3A),Y 

F936: 90 F2 

319 


BCC 

PRADR4 

F938: 20 6D F8 

320 

RELADR 

JSR 

PCADJ3 

F93B: AA 

321 


TAX 


F93C: E8 

322 


INX 


F93D: DO 01 

323 


BNE 

PRNTYX 

F93F: C8 

324 


INY 


F940: 98 

325 

PRNTYX 

TYA 


F941: 20 DA FD 

326 


JSR 

PRBYTE 

F944: 8A 

327 


TXA 


F945: 4C DA FD 

328 


JMP 

PRBYTE 

F948: A2 03 

329 

PRBLNK 

LDX 

#$03 

F94A: A9 AO 

330 

PRBL2 

LDA 

#$A0 

F94C: 20 ED FD 

331 


JSR 

COUT 

F94F: CA 

332 


DEX 


F950: DO F8 

333 


BNE 

PRBL2 

F952: 60 

334 


RTS 



335 

* 




336 

* Aus Platzgründen JMP nach 


337 

* Program Counter Adjust 


338 

* Wird 

von $FE67 angesprungen. 


339 

* 



F953: 4C 6A F8 

340 

PCADJJMP JMP 

PCADJ ;extern 


341 

* 



F956: OF 

342 

FMTl 

HEX 

OF ;neu 

F957: 22 

343 


HEX 

22 

F958: FF 

344 


HEX 

FF 

F959: 33 

345 


HEX 

33 












F95A: 

F95B: 

F95C: 

F95D: 

F95E: 

F95F: 

F960: 

F961: 

F962: 

F963: 

F964: 

F965: 

F966: 

F967: 

F968; 

F969: 

F96A: 

F96B: 

F96C: 

F96D: 

F96E: 

F96F: 

F970: 

F9ri: 

F972: 

F973: 

F974: 

F975: 

F976: 

F977: 

F978: 

F979: 

F97A: 

F97B: 

F97C: 

F97D: 

F97E; 

F97F: 

F980: 

F981: 

F982: 

F983: 

F984; 

F985: 

F986: 

F987: 

F988: 

F989: 

F98A: 

F98B: 

F98C: 

F98D: 

F98E: 

F9aF: 

F990: 

F991: 

F992: 

F993: 

F994: 

F995: 

F996: 

F997: 

F998: 

F999: 

F99A: 

F99B: 

F99C: 

F99D: 

F99E: 

F99F: 

F9A0: 

F9A1: 

F9A2: 

F9A3: 

F9A4: 

F9A5: 

F9A6: 

F9A7: 

F9A8: 

F9A9: 

F9AA: 

F9AB: 

F9AC: 

F9AD: 

F9AE: 

F9AF: 

F9B0: 

F9B1: 




Feature 


CB 

346 


HEX 

CB 

62 

347 


HEX 

62 

FF 

348 


HEX 

FF 

73 

349 


HEX 

73 

03 

350 


HEX 

03 

22 

351 


HEX 

22 

FF 

352 


HEX 

FF 

33 

353 


HEX 

33 

CB 

354 


HEX 

CB 

66 

355 


HEX 

66 

FF 

356 


HEX 

FF 

77 

357 


HEX 

77 

OF 

358 


HEX 

OF 

20 

359 


HEX 

20 

FF 

360 


HEX 

FF 

33 

361 


HEX 

33 

CB 

362 


HEX 

CB 

60 

363 


HEX 

60 

FF 

364 


HEX 

FF 

70 

365 


HEX 

70 

OF 

366 


HEX 

OF 

22 

367 


HEX 

22 

FF 

368 


HEX 

FF 

39 

369 


HEX 

39 

CB 

370 


HEX 

CB 

66 

371 


HEX 

66 

FF 

372 


HEX 

FF 

7D 

373 


HEX 

7D 

OB 

374 


HEX 

OB 

22 

375 


HEX 

22 

FF 

376 


HEX 

FF 

33 

377 


HEX 

33 

CB 

378 


HEX 

CB 

A6 

379 


HEX 

A6 

FF 

380 


HEX 

FF 

73 

381 


HEX 

73 

11 

382 


HEX 

11 

22 

383 


HEX 

22 

FF 

384 


HEX 

FF 

33 

385 


HEX 

33 

CB 

386 


HEX 

CB 

A6 

387 


HEX 

A6 

FF 

388 


HEX 

FF 

87 

389 


HEX 

87 

01 

390 


HEX 

01 

22 

391 


HEX 

22 

FF 

392 


HEX 

FF 

33 

393 


HEX 

33 

CB 

394 


HEX 

CB 

60 

395 


HEX 

60 

FF 

396 


HEX 

FF 

70 

397 


HEX 

70 

01 

398 


HEX 

01 

22 

399 


HEX 

22 

FF 

400 


HEX 

FF 

33 

401 


HEX 

33 

CB 

402 


HEX 

CB 

60 

403 


HEX 

60 

FF 

404 


HEX 

FF 

70 

405 


HEX 

70 

24 

406 


HEX 

24 

31 

407 


HEX 

31 

65 

408 


HEX 

65 

78 

409 


HEX 

78 

00 

410 

FMT2 

HEX 

00 

21 

411 


HEX 

21 

81 

412 


HEX 

81 

82 

413 


HEX 

82 

59 

414 


HEX 

59 

4D 

415 


HEX 

4D 

91 

416 


HEX 

91 

92 

417 


HEX 

92 

86 

418 


HEX 

86 

4A 

419 


HEX 

4A 

85 

420 


HEX 

85 

9D 

421 


HEX 

9D 

49 

422 


HEX 

49 

5A 

423 

CHARl 

HEX 

5A 

D9 

424 


HEX 

D9 

00 

425 


HEX 

00 

D8 

426 


HEX 

D8 

A4 

427 


HEX 

A4 

A4 

428 


HEX 

A4 

00 

429 

CHAR2 

HEX 

00 

AC 

430 


HEX 

AC 

A9 

431 


HEX 

A9 

AC 

432 


HEX 

AC 

A3 

433 


HEX 

A3 


F9B2S 

Ae 

434 


HEX 

Ad 

F9B3: 

M 

435 

436 

437 

* 

HEX 

A4 








438 

* 



F9B4: 

IC 

439 

MNEML 

HEX 

IC ; 

$oo 

F9B5: 

8A 

440 


HEX 

8A 

F9B6: 

IC 

441 


HEX 

IC 

F9B7: 

23 

442 


HEX 

23 

F9B8: 

5D 

443 


HEX 

5D 

F9B9: 

8B 

444 


HEX 

8B 

F9BA: 

IB 

445 


HEX 

IB 

F9BB: 

Al 

446 


HEX 

Al 

F9BC: 

9D 

447 


HEX 

9D 

F9BD: 

8A 

448 


HEX 

8A 

F9BE: 

ID 

449 


HEX 

ID 

F9BF: 

23 

450 


HEX 

23 

F9C0: 

9D 

451 


HEX 

9D 

F9C1; 

8B 

452 


HEX 

8B 

F9C2: 

ID 

453 


HEX 

ID 

F9C3: 

Al 

454 


HEX 

Al 

F9C4: 

IC 

455 


HEX 

IC ; 

;$10 

F9C5: 

29 

456 


HEX 

29 

F9C6: 

19 

457 


HEX 

19 

F9C7: 

AE 

458 


HEX 

AE 

F9C8: 

69 

459 


HEX 

69 

F9C9: 

A8 

460 


HEX 

A3 

F9CA: 

19 

461 


HEX 

19 

F9CB: 

23 

462 


HEX 

23 

F9CC: 

24 

463 


HEX 

24 

F9CD: 

53 

464 


HEX 

53 

F9CE: 

IB 

465 


HEX 

IB 

F9CF: 

23 

466 


HEX 

23 

F9D0: 

24 

467 


HEX 

24 

F9D1: 

53 

468 


HEX 

53 

F9D2: 

19 

469 


HEX 

19 

F9D3: 

Al 

470 


HEX 

Al 

F9D4: 

AD 

471 


HEX 

AD i 


F9D5: 

lA 

472 


HEX 

lA 

F9D6: 

5B 

473 


HEX 

5B 

F9D7: 

5B 

474 


HEX 

5B 

F9D8: 

A5 

475 


HEX 

A5 

F9D9: 

69 

476 


HEX 

69 

F9DA: 

24 

477 


HEX 

24 

F9DB: 

24 

478 


HEX 

24 

F9DC: 

AE 

479 


HEX 

AE 

F9DD: 

AE 

480 


HEX 

AE 

F9DE: 

A8 

481 


HEX 

A8 

F9DF: 

AD 

482 


HEX 

AD 

F9E0: 

29 

483 


HEX 

29 

F9E1: 

8A 

484 


HEX 

8A 

F9E2: 

7C 

485 


HEX 

7C 

F9E3: 

8B 

486 


HEX 

8B 

F9E4: 

15 

487 


HEX 

15 ; 

;$30 

F9E5: 

9C 

488 


HEX 

9C 

F9E6: 

6D 

489 


HEX 

6D 

F9E7: 

9C 

490 


HEX 

9C 

F9E8: 

A5 

491 


HEX 

A5 

F9E9: 

69 

492 


HEX 

69 

F9EA: 

29 

493 


HEX 

29 

F9EB: 

53 

494 


HEX 

53 

F9EC: 

84 

495 


HEX 

84 

F9ED; 

13 

496 


HEX 

13 

F9EE: 

34 

497 


HEX 

34 

F9EF: 

11 

498 


HEX 

11 

F9F0: 

A5 

499 


HEX 

A5 

F9F1: 

69 

500 


HEX 

69 

F9F2: 

23 

501 


HEX 

23 

F9F3: 

AO 

502 


HEX 

AO 1 

;S3F 



503 

* 





504 

* Ergänzung der Tabelle 



505 

* 



F9F4: 

8A 

506 


HEX 

8A 

F9F5: 

8B 

507 


HEX 

SB 

F9F6: 

A5 

508 


HEX 

A5 

F9F7: 

AC 

509 


HEX 

AC 

F9F8; 

00 

510 

511 

512 

* 

HEX 

00 ; 

:$44 








513 

* 



F9F9: 

D8 

514 

MNEMR 

HEX 

DS 

BRK 

F9FA: 

62 

515 


HEX 

62 

PHP 

F9FB: 

5A 

516 


HEX 

5A 

BPL 

F9FC: 

48 

517 


HEX 

48 

CLC 

F9FD; 

26 

518 


HEX 

26 

JSR 

F9FE: 

62 

519 


HEX 

62 

PLP 

F9FF: 

94 

520 


HEX 

94 

MI 


17 













INPUT 2.0 

Ein Bildschirm- 
Maskengenerator 
für DOS 3.3 
und ProDOS 

von U. Stiehl 

1984, Diskette und Manual, DM 98,- 
ISBN 3-7785-1021-5 

Der für den Apple II bestimmte Mas¬ 
kengenerator „Input 2.0“ basiert auf 
den früheren Programmen „Input 
1.0“ und „Input 80 1.0“ (von denen 
noch Restbestände lieferbar sind) 
und ist sowohl unter DOS 3.3 wie 
auch unter dem neuen ProDOS lauf¬ 
fähig. Der Maskengenerator setzt ei¬ 
nen Apple II Plus mit Language Card 
oder einen Apple Ile voraus. Im 40 Z/ 
Z-Modus funktioniert er auf beiden 
Gerätetypen, im 80 Z/Z-Modus dage¬ 
gen nur auf dem Apple Ile mit 80- 
Zeichen-Karte. (Die alte Videx-Karte 
für den Apple II wird nicht unter¬ 
stützt!) 

„Input 2.0“ liegt wahlweise in der 
Bank 1 oder Bank 2 der Language 
Card und wird durch einen kurzen 
Driver in den unteren 48K aufgerufen. 
„Input 2.0“ läßt sich problemlos in 
nicht-compilierte und compilierte 
Applesoft- sowie in Assemblerpro¬ 
gramme einbinden. Die Übergabe der 
Feldinhalte an das Anwenderpro¬ 
gramm erfolgt durch ein einfaches 
Verfahren, das auch bei Compilern 
funktioniert. 

Für jedes Feld der Bildschirmmaske 
lassen sich u. a. definieren: Feldlänge 
(bis zu 255 Zeichen) - Vtab - Htab - 
Datentyp (insgesamt 8 Typen) - 
Scrollflag (starre oder dynamische 
Maske) - Ctriflag - Füilflag - Lösch¬ 
flag - Bildschirmflag (40- oder 80 Zei¬ 
chendarstellung). Innerhalb eines 
Eingabefeldes besteht jeder denkba¬ 
re Redigierkomfort (Insert, Delete, 
Rubout, Restore usw.). 

Bei der neuen Version des Masken¬ 
generators können jetzt auch Ctrl- 
Zeichen beim Datentyp String einge¬ 
geben werden. Ferner sind - das gilt 
nur für Ile - die Apfeltasten als 
schnelle Cursortasten definiert. 
Schließlich wurden Features imple¬ 
mentiert, die den Einsatz von „Input 
2.0“ als zeilenorientiertes Textverar¬ 
beitungsprogramm ermöglichen. Die 
„Input 2.0“-Diskette enthält zahlrei¬ 
che Demos zur Veranschaulichung 
der Anwendung. 

Gerätevoraussetzung: Apple He oder 
Ile; ferner Apple 11+ im 40-Zeichen- 
modus 


Hüthig Software Service, 
Postfach 10 28 69, 
D-6900 Heidelberg 



FAOO: 88 

521 


HEX 

88 

FAOl: 54 

522 


HEX 

54 

FA02: 44 

523 


HEX 

44 

FA03: C8 

524 


HEX 

C8 

FA04: 54 

525 


HEX 

54 

FA05: 68 

526 


HEX 

68 

FA06: 44 

527 


HEX 

44 

FA07: E8 

528 


HEX 

E8 

FA08: 94 

529 


HEX 

94 

FA09: C4 

530 


HEX 

C4 

FAOA: B4 

531 


HEX 

B4 

FAOB; 08 

532 


HEX 

08 

FAOC: 84 

533 


HEX 

84 

FAOD: 74 

534 


HEX 

74 

FAOE: B4 

535 


HEX 

B4 

FAOF: 28 

536 


HEX 

28 

FAIO: 6E 

537 


HEX 

6E 

FAll: 74 

538 


HEX 

74 

FA12: F4 

539 


HEX 

F4 

FA13: CG 

540 


HEX 

CG 

FA14: 4A 

541 


HEX 

4A 

FA15: 72 

542 


HEX 

72 

FA16: F2 

543 


HEX 

F2 

FA17: A4 

544 


HEX 

A4 

FA18: 8A 

545 


HEX 

8A 

FA19: 06 

546 


HEX 

06 

FAIA: AA 

547 


HEX 

AA 

FAIB: A2 

548 


HEX 

A2 

FAIC: A2 

549 


HEX 

A2 

FAID: 74 

550 


HEX 

74 

FAIE: 74 

551 


HEX 

74 

FAIF: 74 

552 


HEX 

74 

FA20: 72 

553 


HEX 

72 

FA21: 44 

554 


HEX 

44 

FA22: 68 

555 


HEX 

68 

FA23: B2 

556 


HEX 

B2 

FA24: 32 

557 


HEX 

32 

FA25: B2 

558 


HEX 

B2 

FA26: 72 

559 


HEX 

72 

FA27: 22 

560 


HEX 

22 

FA28: 72 

561 


HEX 

72 

FA29: lA 

562 


HEX 

lA 

FA2A: lA 

563 


HEX 

lA 

FA2B: 26 

564 


HEX 

26 

FA2C: 26 

565 


HEX 

26 

FA2D: 72 

566 


HEX 

72 

FA2E: 72 

567 


HEX 

72 

FA2F: 88 

568 


HEX 

88 

FA30: C8 

569 


HEX 

C8 

FA31: C4 

570 


HEX 

C4 

FA32: CA 

571 


HEX 

CA 

FA33: 26 

572 


HEX 

26 

FA34: 48 

573 


HEX 

48 

FA35: 44 

574 


HEX 

44 

FA36: 44 

575 


HEX 

44 

FA37: A2 

576 


HEX 

A2 

FA38: C8 

577 


HEX 

C8 


578 

* 




579 

* 

Ergänzung der Tabelle 


580 

* 



FA39: 74 

581 


HEX 

74 

FA3A: 74 

582 


HEX 

74 

FA3B: 76 

583 


HEX 

76 

FA3C: C6 

584 


HEX 

C6 

FA3D: 00 

585 


HEX 

00 


586 

* 




587 

* 

Füller bis 

$FA3F 


588 

* 



FA3E: EA 

589 


NOP 


FA3F: EA 

590 

ENDE NOP 



—End assembly— 
612 bytes 
Errors; 0 


SEC 

RTI 

65C02-Disassembler 

$6000; AD 81 CO AD 81 CO 

AO 

00 

PHA 

BVC 

CLI 

RTS 

PLA 

BVS 

SEI 

BRA 

DEY 

$6008; 

84 

FC 

A9 

DO 

85 

FD 

Bl 

FC 

$6010: 

91 

FC 

C8 

DO 

F9 

E6 

FD 

DO 

$6018: 

F5 

A9 

4E 

85 

FC 

A9 

60 

85 

$6020; 

FD 

A9 

2A 

85 

FE 

A9 

F8 

85 

$6028; 

FF 

AO 

00 

Bl 

FC 

91 

FE 

E6 

$6030: 

FC 

DO 

02 

E6 

FD 

E6 

FE 

DO 

$6038: 

02 

E6 

FF 

A5 

FF 

C9 

FA 

90 

$6040: 

EA 

A5 

FE 

C9 

40 

90 

E4 

AD 

$6048: 

83 

CO 

AD 

83 

CO 

60 

98 

A2 

BCC 

TYA 

LDY 

TAY 

BGS 

CLV 

CPY 

INY 

BNE 

CLD 

CPX 

INX 

$6050: 

16 

DD 

3C 

F8 

FO 

04 

CA 

10 

$6058: 

F8 

60 

BD 

53 

F8 

AO 

00 

60 

$6060: 

12 

14 

lA 

IC 

32 

34 

3A 

3C 

$6068: 

52 

5A 

64 

72 

74 

7A 

7C 

89 

$6070: 

92 

9C 

9E 

B2 

D2 

F2 

FC 

38 

$6078: 

43 

37 

43 

39 

21 

36 

21 

3A 

$6080: 

40 

42 

3B 

42 

41 

22 

21 

3C 

$6088: 

42 

42 

3D 

3E 

3F 

44 

38 

A5 

$6090: 

2F 

A4 

3B 

AA 

10 

01 

88 

65 

$6098: 

3A 

90 

01 

C8 

60 

90 

04 

4A 

$60AO: 

4A 

4A 

4A 

29 

OF 

60 

A6 

3A 

$60A8: 

A4 

3B 

20 

96 

FD 

20 

48 

F9 

BEQ 

SED 

TSB 

$60B0: 

Al 

3A 

A8 

4A 

90 

05 

6A 

BO 

$60B8: 

OC 

29 

87 

4A 

AA 

BD 

56 

F9 

$60CO: 

20 

79 

F8 

DO 

04 

AO 

FC 

A9 

BIT 

$60C8: 

00 

AA 

BD 

9A 

F9 

85 

2E 

29 

JMP 

JMP 

STY 

$60D0; 

03 

85 

2F 

20 

2A 

F8 

FO 

18 

$60D8; 

29 

8F 

AA 

98 

AO 

03 

EO 

8A 

$60E0: 

FO 

OB 

4A 

90 

08 

4A 

4A 

09 

LDY 

$60E8; 

20 

88 

DO 

FA 

C8 

88 

DO 

F2 

CPY 

CPX 

TXA 

TXS 

$60F0: 

60 

FF 

FF 

FF 

20 

82 

F8 

48 

$60F8: 

Bl 

3A 

20 

DA 

FD 

A2 

01 

20 

$6100: 

4A 

F9 

C4 

2F 

C8 

90 

Fl 

A2 

$6108; 

03 

CO 

04 

90 

F2 

68 

A8 

B9 

TAX 

$6110: 

B4 

F9 

85 

2C 

B9 

F9 

F9 

85 

TSX 

$6118; 

2D 

A9 

00 

AO 

05 

06 

2D 

26 

DEX 

PHX 

NOP 

$6120: 

2C 

2A 

88 

DO 

F8 

69 

BF 

20 

$6128: 

ED 

FD 

CA 

DO 

EC 

20 

48 

F9 

$6130: 

A4 

2F 

A2 

06 

EO 

03 

FO 

10 

PLX 

ASL 

ROL 

LSR 

ROR 

$6138; 

06 

2E 

90 

OE 

BD 

AD 

F9 

20 

$6140: 

ED 

FD 

BD 

A7 

F9 

FO 

03 

20 

$6148; 

ED 

FD 

CA 

DO 

E7 

60 

88 

30 

$6150: 

E7 

20 

DA 

FD 

A5 

2E 

C9 

E8 

$6158: 

Bl 

3A 

90 

F2 

20 

6D 

F8 

AA 

STX 

$6160; 

ES 

DO 

01 

C8 

98 

20 

DA 

FD 

LDX 

DEC 

$6168: 

3A 

4C 

DA 

FD 

A2 

03 

A9 

AO 

$6170: 

20 

ED 

FD 

CA 

DO 

Fa 

60 

4C 

INC 

ORA 

AND 

EOR 

ADC 

STA 

LDA 

$6178; 

6A 

F8 

OF 

22 

FF 

33 

CB 

62 

$6180: 

FF 

73 

03 

22 

FF 

33 

CB 

66 

$6188; 

FF 

77 

OF 

20 

FF 

33 

CB 

60 

$6190: 

FF 

70 

OF 

22 

FF 

39 

CB 

66 

$6198: 

FF 

7D 

OB 

22 

FF 

33 

CB 

A6 

$61A0: 

FF 

73 

11 

22 

FF 

33 

CB 

A6 

$61A8; 

FF 

87 

01 

22 

FF 

33 

CB 

60 

CMP 

SBC 

$61B0: 

FF 

70 

01 

22 

FF 

33 

CB 

60 

$61B8: 

FF 

70 

24 

31 

65 

78 

00 

21 


$61C0: 

81 

82 

59 

4D 

91 

92 

86 

4A 


$61C8: 

85 

9D 

49 

5A 

D9 

00 

D8 

A4 

PHY 

PLY 

STZ 

$61D0: 

A4 

00 

AC 

A9 

AC 

A3 

A8 

A4 

$61D8: 

IC 

8A 

IC 

23 

5D 

8B 

IB 

Al 

$61E0: 

9D 

8A 

ID 

23 

9D 

8B 

ID 

Al 

$61E8: 

IC 

29 

19 

AE 

69 

A8 

19 

23 

TRB 

$61F0: 

24 

53 

IB 

23 

24 

53 

19 

Al 

??? 

$61F8: 

AD 

lA 

5B 

5B 

A5 

69 

24 

24 


$6200: 

AE 

AE 

A8 

AD 

29 

8A 

7C 

8B 


$6208: 

15 

9C 

6D 

9C 

A5 

69 

29 

53 


$6210: 

84 

13 

34 

11 

A5 

69 

23 

AO 

;$FA3F 

$6218: 

8A 

8B 

A5 

AC 

00 

D8 

62 

5A 

$6220: 

48 

26 

62 

94 

88 

54 

44 

C8 


$6228: 

54 

68 

44 

ES 

94 

C4 

B4 

08 


$6230: 

84 

74 

B4 

28 

6E 

74 

F4 

CC 


$6238: 

4A 

72 

F2 

A4 

8A 

06 

AA 

A2 


$6240: 

A2 

74 

74 

74 

72 

44 

68 

B2 


$6248: 

32 

B2 

72 

22 

72 

lA 

lA 

26 


$6250: 

26 

72 

72 

88 

C8 

C4 

CA 

26 


$6258: 

48 

44 

44 

A2 

C8 

74 

74 

76 


$6260: 

C6 

00 

EA 

EA 

00 

00 

00 

00 



18 












Feature 




Accelerator Ile 


Die neue Superkarte 


Die neue Accelerator Ile der Firma Titan 
(die früher als Saturn firmierte) kam etwa 
im April dieses Jahres auf den Markt. Ich 
wage zu behaupten: Wer diese Karte ein¬ 
mal in den Apple gesteckt hat, wird sie 
nicht mehr herausziehen wollen. In zwei¬ 
erlei Hinsicht ist sie wohl eine der besten 
Interface-Karten, die je für den Apple Ile 
bzw. II Plus konzipiert wurde. Einerseits ist 
deren Benutzung für den reinen Apple- 
Anwender denkbar unkompliziert: Karte in 
irgendeinen Slot stecken, einschalten, fer¬ 
tig! Andererseits kann ein Programmierer 
weitergehende Features der Karte ausnut¬ 
zen, so daß sich vielfältige Anwendungs¬ 
möglichkeiten im Hinblick auf die Modifi¬ 
zierung des weiter unten geschilderten 
„Pseudo-ROMs“ bieten. 


1. Hardware und Installation 

Die Accelerator Ile, die ich für den stolzen 
Preis von $ 623.00 bzw. umgerechnet DM 
1805,00 erwarb, dient zunächst nur einem 
einzigen Zweck, nämlich alle Programme 
bis zu ca. 3,5mal schneller zu machen. Die 
sorgfältig verarbeitete, sehr kompakte Kar¬ 
te ist u.a. mit einer 4 MHz NCR-65C02C- 
CPU (CMOS-Technologie) sowie mit 80K 
RAM (dynamisch, 150 ns) bestückt. Im 
Gegensatz zur alten Accelerator II kann 
die neue Accelerator Ile in jeden beliebi¬ 
gen Slot gesteckt werden. (Beim Apple II 
Plus wird jedoch wegen der Language 
Card Slot 0 empfohlen.) Die alte Accelera¬ 
tor II mußte sich links von einer ggf. vor¬ 
handenen Z80-Karte befinden. Diese Be¬ 
schränkung gilt für die Accelerator Ile nicht 
mehr. Ferner gab es bei der Accelerator II 


verschiedene Preboot-Konfigurationen 
(Phantom 0, Fast Applesoft, Standard und 
Disable), und der damaligen Anleitung war 
eine ellenlange Liste von (geschützten) 
Programmen beigefügt worden, aus der 
ersichtlich war, welches Programm welche 
Konfiguration erforderte. Auch diese Be¬ 
schränkung ist bei der neuen Accelerator 
Ile insoweit entfallen, als erstens eine Pre- 
boot-Diskette normalerweise überflüssig 
ist und zweitens grundsätzlich alle Pro¬ 
gramme lauffähig sind, auch die „ge¬ 
schützten“. 

Die Karte verfügt über 8 Schalter und 7 
Brücken. Die Schalter 1-7 sind den Slots 
1-7 zugeordnet. Bei den Schaltern bedeu¬ 

Accelerator II 


tet ON = 4 MHz und OFF = 1 MHz. Bei 
zeitkritischen Interface-Karten (Disk-Con- 
troller, Modem usw., nicht dagegen z.B. 
Druckerkarten usw.) muß der entspre¬ 
chende Slot-Schalter auf OFF (nach un¬ 
ten) gestellt werden. Dies gilt nicht für die 
80-Zeichenkarte bzw. 64K-Karte des Ap¬ 
ple Ile. Mit dem Schalter Nr. 8 kann man 
die Accelerator Ile insgesamt permanent 
auf 1 MHz herunterschalten (Dies ent¬ 
spricht dem Softswitch 0086:1). 

Die Brücken kontrollieren ggf, vorhandene 
RAM-Karten. Wenn sich in irgendeinem 
Slot eine RAM-Karte (128K-RAM-Karte 
usw.) befinden sollte, muß die entspre¬ 
chende Slot-Brücke (ein kleiner Plastik- 
Aufsatz) abgezogen werden. Dies gilt wie¬ 
derum nicht für die Ile-64K-RAM-Karte in 
Slot 3. 


Da die CMOS-Teiie der Karte sehr emp¬ 
findlich gegen Elektrostatik sind, empfiehlt 
es sich, die Karte in eine Alu-Folie einzu¬ 
wickeln, falls sie versandt werden soll. Be¬ 
vor man die Karte anfaßt, z.B. wenn man 
sie in einen Slot steckt oder einen Schalter 
umlegt, sollte man die Hände an einem 
Metallstück „entladen“. 

Die Accelerator Ile wird denkbar einfach 
aktiviert: Man braucht lediglich den Apple 
einzuschalten; das ist alles. In dem Mo¬ 
ment, da der Apple eingeschaltet wird, 
zieht die Karte quasi „alle Energie“ an 
sich, d.h. der alte 6502 sowie die gesam¬ 
ten 64K RAM des Motherboards inklusive 
LC und das 12K-ROM ($D000-$FFFF) 
werden desaktiviert. Wie bereits erwähnt, 
umfaßt die Accelerator Ile 80K RAM, das 
sich wie folgt aufteilt: 

-48K „Motherboard“ 

- 16K „Language Card“ 

- 16K „Pseudo-ROM“ 

Beim Einschalten des Apple wird der ech¬ 
te ROM $D000-$FFFF in das Pseudo- 
ROM der Accelerator Ile kopiert, worauf 
softswitchmäßig „die Klappe herunter¬ 
fällt“, d.h. das Pseudo-ROM, das in Wirk¬ 
lichkeit RAM ist, wird gegen Überschrei¬ 
ben geschützt. 

2. Geschwindigkeit 

Der 4 MHz 65C02C läuft theoretisch auf 
3,5 MHz heruntergetaktet, doch konnte 
durch detaillierte Testprogramme gezeigt 
werden, daß die Accelerator-CPU maximal 
3,32mal schneller als die normale 6502- 
CPU ist. Lediglich wenn von den erweiter¬ 
ten 65C02-Befehlen Gebrauch gemacht 
wird, können Programme den Wert von 
3,5 erreichen bzw. gar überschreiten. Im 
einzelnen wird die Accelerator Ile in fol¬ 
genden Fällen kurzfristig auf 1 MHz „her¬ 
untergetaktet“: 

~ beim Zugriff auf Peripheriegeräte wie 
Disk-Controller usw., bei denen der ent¬ 
sprechenden Slot-Schalter von vornherein 
auf 1 MHz eingestellt wurde. 

- beim Zugriff auf RAM-Karten aller Art, 
insbesondere wenn diese virtuell in den 
Bereich $D000-$FFFF „gemappt“ sind. 

- beim Zugriff auf Softswitches und ROM- 
Routinen im Bereich $C000-$CFFF. Das 
Demo-Programm „ACCELWAIT“ zeigt, 
daß das Ansprechen von INTCXROM- 
oder Softswitch-Adressen nur dann zur 
einer spürbaren Reduzierung der Ge¬ 
schwindigkeit führt, wenn dies mit einer 
nicht bis ins fetzte Detail untersuchten ge¬ 
wissen Häufigkeit geschieht. 

























Praktische Beispiele 

a) Das an anderer Stelle in dieser Zeit¬ 
schrift gelistete Applesoft-Primzahlen- 
Programm ist mit der Accelerator-Karte 
3,28mal schneller. 


b) Die Bildschirm-Scroll-Geschwindigkeit 
ist speziell beim Apple Ile mit Accelerator 
dann kaum spürbar schneller, wenn man 
den Ile-Monitor benutzt, der bekanntlich 
permanent in den INTCXROM-Bereich 
$C100-$CFFF springt. Lädt man dagegen 
z.B. den Apple II Plus FPBASIC-File von 
der System Master Diskette in die Accele¬ 
rator Language Card, dann ist etwa die 
LIST-Geschwindigkeit bei Applesottpro- 
grammen ca. 2,8mal schneller. Ähnliches 
gilt für die 80-Zeichen-Scroll-Geschwin- 
digkeit beim Applewriter Ile, da dieser die 
INTCXROM-Routinen nicht benutzt. 


c) Der Zugriff auf die 64K-Karte des Apple 
Ile ist mit Accelerator ca. 2mal schneller. 
Die Datenübertragungsrate von der und 
auf die Karte beträgt maximal 80K/s. Dies 
entspricht der kaleidoskopartigen Darstel¬ 
lung von 10 Hires-Bildern pro Sekunde. 


(Zu Testzwecken wurde das AUXMOVER- 
Programm von der MMU-Diskette benutzt, 
das mit der Accelerator Ile zu einer über¬ 
zeugenden „Bilderschau“ führt.) 

ln der Anleitung zur Accelerator Ile, die 
leider für Programmierer und Techniker 
etwas dürftig ist, sind nur 3 Softswitches 
genannt: 

C086:1 = POKE -16250,1 = 1 MHz (Low 
Speed; für Spiele usw.) 


C086: 5 = POKE -16250, 5 = 3,5 MHz 
(High Speed: Normalzustand) 

(Zwischen dem langsamen und schnellen 
Modus kann man beliebig oft hin- und 
herschalten.) 

C086: A = POKE -16250, 10 (Disable; 
Karte abstellen) 

Das Abstellen der Karte bedeutet, daß 
nunmehr wieder das eigentliche RAM und 
ROM des Apple aktiv wird. Zum Abstellen 
der Karte verwende man entweder die mit¬ 
gelieferte Preboot-Diskette oder verfahre 
beim Apple Ile wie folgt: 

CALL-151 
C086:A 

CtrI-Geschlossener Apfel-Reset 
(CtrI-Taste, schwarze Apfel-Taste und Re¬ 
set-Taste gleichzeitig drücken. Dieses 
Verfahren bewirkt, daß sich die Softswit¬ 
ches normalisieren.) 

Ist die Karte erst einmal desaktiviert, be¬ 
steht meines Wissens keine Möglichkeit 
mehr, sie wieder zu reaktivieren, d.h. man 
ist gezwungen, den Apple erst aus- und 
dann wieder einzuschalten, wenn die Ac¬ 
celerator wieder aktiv werden soll. 


3. Reset 

Der Hardware-Reset durch Drücken der 
CtrI-Reset-Tasten bewirkt beim Apple Ile 
stets die Normalisierung der Softswitches 
in folgender Weise: Es werden die „unte¬ 
ren“ 48K des Motherboards lese- und 
schreibfähig gemacht, also eine vor Reset 
ggf. aktive 64K-Kartes desaktiviert. Ferner 
wird das ROM $D000-$FFFF lesefähig und 
die Bank 2 der Language Card der unteren 
64K schreibfähig gemacht. Schließlich 


werden durch die Software-Reset-Routine 
ab $FA62 Grafik und 80-Zeichenkarte ab¬ 
gestellt. 

Für die Accelerator Ile gilt demgegenüber, 
daß eine ggf. aktive (lese-schreib-fähig 
gemachte) Language Card durch Ctrl-Re- 
set nicht desaktiviert wird. Ferner „dreht“ 
die Accelerator He „durch“, wenn man 
CtrI-Reset drückt, während sich die 64K- 
Karte in einem Read-Write-Enable-Zu- 
stand befindet. Obwohl dies nicht eindeu¬ 
tig bewiesen werden kann, dürfte in die¬ 
sem Fall kurzfristig das Motherboard-RAM 
und -ROM aktiviert werden. Da sich dort 
jedoch nur „Zufallswerte“ befinden, wird 
neu gebootet. Wenn man danach mit Ctrl- 
Schwarzer Apfel-Reset die Softswitches 
normalisiert, gerät die Accelerator Ile wie¬ 
der unter Kontrolle. Andernfalls kann man 
nur noch das Gerät ausschalten. Ein Bei¬ 
spiel: Der Applewriter Ile benutzt - falls 
vorhanden - die 64K-Karte als Textspei¬ 
cher und muß deshalb beim Scrollen usw. 
häufig auf die „oberen“ 64K springen. 
Drückt man dann in einem solchen Mo¬ 
ment CtrI-Reset, wird neu gebootet. 


4. Die Geheimnisse des „Pseudo- 
ROMs“ 

ln der Betriebsanleitung der Firma Titan 
wird zwar beiläufig erwähnt, daß nach dem 
Einschalten des Apple das „richtige“ ROM 
in das „Pseudo-ROM“ der Accelerator- 
Karte kopiert wird, doch wie das geschieht 
und insbesondere, ob dieser Kopiervor¬ 
gang später, während der Apple noch ein¬ 
geschaltet ist, wiederholt werden kann, 
darüber hüllt sich Titan in Schweigen. Die 
Vorstellung, ggf. in dieses Pseudo-ROM 
einen anderen Inhalt hineinladen zu kön¬ 
nen, faszinierte mich, denn dann wäre 
man allen „F8-EPROM-Brennern“ mei¬ 
lenweit überlegen, könnte man doch je 
nach Anwendungszweck mal diesen und 
mal jenen Monitor oder mal dieses und 
mal jenes Applesoft oder Integer-Basic 
usw. in das Pseudo-ROM laden. Es hat 
mich dann zwei schlaflose Nächte geko¬ 
stet, bis ich herausfand, daß dies tatsäch¬ 
lich möglich ist. Insgesamt habe ich 256 
verschiedene Softswitches ausprobieren 
müssen, wobei mir im übrigen „Kommis¬ 
sar Zufall“ zu Hilfe kam. Durch Untersu¬ 
chung der Speicherbereiche nach dem 
Einschalten des Apple stellte ich nämlich 
fest, daß ein echtes Zusatz-ROM der Ac¬ 
celerator-Karte ein kurzes Kopierpro¬ 
gramm in den Stack-Bereich $0100- 
$01 FF verlegt. Obwohl sich dieses Pro¬ 
gramm nachher durch die übliche Verwen- 
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wir haben die derzeit leistungsstarksten Subsysteme 1 


• Hord Disk/Festplatten-SubsysFeme 

• VechselplaUen-Subsg Sterne 

• kombinierte Fest-/Vechsel-Subsysteme 

• Bandstreamer für Backup 

• NC-Net Lokales Netzverk 

• NCV 2.0 Multibetriebssystem-Software 

• 6“ Floppy mit SS/SD + DS/DD, BM-komp. 
in Vorbereitung: 

• Fest-/Wechselpkitten für Macintosh und 
Apple llc. APPLE-BUS Kompatibilität 

• Schon für die Einzelplatz Fest/Vechsel- 

► platten gelten konkurrenztose Leistungen ... 


NOUOComp Datensysteme GmbH 

Ulalramsneustraße 7 + 9 

D-5500 Trier 
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bis zu 63 Key vor ds/Benutzer definier- und 
editierbar. Wahlfrei unter DOS 3.3 (inkl. Va¬ 
rianten), ProDOS, UCSD-Pascal 1.1 u. 1 2 ., 
CP/M sowie NCNDOS (Multiuser-DOS) ein- 
setzbor. Betriebsystem-Vechsel per BefeN 
in Sekunden. Für jedes Key word komplette 
Konfigurations-Umgebung in ollen Betrieb- 
Systemen definierbar. Schreib/Leseschutz 
f. oHe Keywords u. ‘logische Unit-Bezeich¬ 
nungen" definierbar. Änderung der Platten- 
aufteiiung ohne (!) Datenverlust in ollen Be¬ 
triebsystemen. Turnkey-Lösungen .. und .. 
und ... 


US-Fachleute bewerten; 
“Die mit Abstand beste 
Lösung am Markt!“ 






düng des Stacks von selbst überschreibt, 
konnte noch der wichtigste Teil rekonstru¬ 
iert werden. Dieser ist in dem Programm 
„ACCELBOOT“ gelistet. Weitere Unter¬ 
suchungen ergaben dann folgendes: 

LDA #3 
STA $C086 
LDA $C081 
LDA $C081 

macht das Pseudo-ROM der Accelerator 
Ile schreibfähig (write-enable) und zu¬ 
gleich das echte ROM des Apple lesefähig 
(read-enable). 

LDA #5 
STA $0086 
LDA $0081 
LDA $0081 

macht das Pseudo-ROM der Accelerator 
Ile (wieder) schreibunfähig (write-disable) 
und zugleich das echte ROM des Apple 
leseunfähig (read-disable). 

Damit war es möglich, folgende Program¬ 
me zu schreiben: 

ACCEL.LC.KOPIE kopiert den Inhalt der 
Accelerator Language Oard Bank 2 in das 
Accelerator Pseudo-ROM. Zu diesem 
Zweck muß zuvor FPBASIO usw. in die 
Language Oard geladen worden sein. 
Nach BRUN AOOELLO.KOPIE kann die 
Language Oard dann anderweitig verwen¬ 
det werden. AOOEL.LO.KOPIE kopiert zu¬ 
nächst den LO-lnhalt $D000-$FFFF nach 
$1000-$3FFF und dann wieder hinauf in 
das Pseudo-ROM. Anwendungszweck; 


ACCELROM.KOPIE1 kopiert zunächst 
den Inhalt des Pseudo-ROMs $D000- 
$FFFF nach $1000-$3FFF. Nunmehr kann 
man den herunterkopierten Bereich be¬ 
quem patchen. Im Anschluß daran wird 
dann der Bereich $1000-$3FFF wieder in 
das Pseudo-ROM zurückkopiert. Anwen¬ 
dungszweck: Verwendung eines partiell 
modifizierten Pseudo-ROM-Inhalts. 

ACCELROM.KOPIE2 kopiert auf dem 
Umweg über $1000-$3FFF den echten 
Apple-ROM-Inhalt (wieder) in das Pseu¬ 
do-ROM der Accelerator-Karte. Anwen¬ 
dungszweck: Wiederherstellung des Kalt¬ 
start-Zustandes. ' 

Nach meinen Erfahrungen scheint es ge¬ 
boten zu sein, die Kopierroutinen auf dem 
Umweg übereinen Bereich in den unteren 
48K, z.B. $1000-$3FFF, vorzunehmen, da 
sich die Accelerator-Karte nach LDA #3 
STA $0086 in einem partiellen Schwebe¬ 
zustand befindet, der durch permanente 
Softswitch-Aktivierung zu einem „Durch¬ 
drehen“ der Karte führen kann. 

Ein praktisches Beispiel: 

Nehmen wir an, wir wollten den 65002- 
Disassembler (Dateiname „D65002“) im 
Pseudo-ROM der Accelerator-Karte „ver¬ 
ewigen“, damit die Language Oard für an¬ 
dere Zwecke wieder frei wird. Dies könn¬ 
ten wir mit folgenden Applesoft-Programm 
realisieren: 


10 PRINT OHR$ (4) „BRUN AOOEL. 
ROM. KOPIE2“ 

20 PRINT 0HR$ (4) „BRUN D65O02“ 

30 PRINTOHR$(4) „BRUN AOOEL 
LO.KOPIE“ 

Zeile 10 stellt zunächst sicherheitshalber 
eine „saubere“ Pseudo-ROM-Kopie des 
Original-Apple-ROMs her. Zeile 20 kopiert 
dann das Pseudo-ROM einschließlich des 
neuen 65002-Disassemblers in die 
Language Oard. Und Zeile 30 kopiert dann 
die Language Oard in das Pseudo-ROM. 
Diese Prozedur ließe sich natürlich da¬ 
durch vereinfachen, daß man das Move- 
Programm des Disassemblers dergestalt 
umschreibt, daß man den neuen Dis¬ 
assembler direkt in das Pseudo-ROM ko¬ 
piert. 

Es sei abschließend darauf hingewiesen, 
daß die Accelerator Ile mit diesem Beitrag 
noch lange nicht endgültig erforscht ist. 
Beispielsweise besteht u.U. die Möglich¬ 
keit, auch die Language Oard des Apple- 
Motherboards (neben der LO der Accele¬ 
rator-Karte) zur Datenspeicherung zu ver¬ 
wenden. Ob man allerdings auch die restli¬ 
chen 48K des Motherboards als Daten¬ 
speicher benutzen kann, scheint zweifel¬ 
haft, wenngleich nicht unmöglich. 

US 
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36 

* 

0180: A9 

03 

37 

LDA #$03 

0182: 8D 

86 

CO 38 

STA ACCEL 



39 

* 

0185: A9 

DO 

40 

LDA #>R0M 

0187: 85 

05 

41 

STA INDH 

0189: AO 

00 

42 

LDY #<R0M 

018B; 84 

04 

43 

STY INDL 

018D: Bl 

04 

44 

KOPIE LDA (INDL),Y 

018F: 91 

04 

45 

STA {INDL),Y 

0191: AE 8A 

CO 46 

LDX WRROMBKl 

0194: 91 

04 

47 

STA (INDL),Y 

0196: AE 

82 

CO 48 

LDX WRR0MBK2 

0199: 88 


49 

DEY 

019A: DO 

Fl 

50 

BNE KOPIE 

019C; E6 

05 

51 

INC INDH 

019E: DO 

ED 

52 

BNE KOPIE 



53 

* 



54 

LDA #$05 STA $C086 ist der 



55 

# dokumentierte Softswitch> 



56 

* der auf 3.5 Megahertz 



57 

* “Full Speed“ umschaltet. 



58 

* 



59 

* LDA #$01 STA $C086 schaltet 



60 

* demgegenüber auf 1 Megahertz 



61 

* herunter. Das RAM der Karte 



62 

* ist danach jedoch weiterhin 



63 

* aktiv. 



64 

* 



65 

* LDA #$0A STA $C086 schaltet 



66 

* zusätzlich das RAM der Karte 



67 

* ab, so daß nunmehr das normale 



68 

# RAM des Apple aktiv ist. Da 



69 

* sich hier jedoch nur Zufallswerte 



70 

* befinden, muß man nach diesem 



71 

* Softswitch mit Reset neu booten. 



72 

* Danach besteht offenbar keine 



73 

* Möglichkeit mehr, die Karte zu 



74 

* reaktivierten, d,h. man muß 



75 

* den Apple zunächst wieder 



76 

* ausschalten, wenn man die 



77 

* Karte wieder aktivieren will. 



78 

* 



79 

* 

OIAO: A9 

05 

80 

LDA #$05 

01A2: 8D 

86 

CO 81 

STA ACCEL 

01A5: 4C 

62 

FA 82 

JMP RESET 


1 


ORG $300 


2 




3 

* ACCEL.LC.KOPIE 


4 

*■ ■= 



5 

* 



6 

* Diese Routine kopiert zunächst 


7 

* den 

Accelerator-LC-Inhalt Bank2 


8 

* $DOOO-$FFFF nach $1000-$3FFF 


9 

* und kopiert dann $1000-$3FFF 


10 

* in 

das Accelerator-“R0M“. 


11 

* 



12 

* Warnung: Vorher muß FPBASIC 


13 

* oder INTBASIC usw. in die LC 


14 

# Bank2 geladen worden sein! 


15 

* 



16 

* Applesoft-Beispiel: 


17 

*- 



18 

* 



19 

* 10 

X = PEEK (49281): X = PEEK (49281) 


20 

# 20 

PRINT CHR$ (4) “BLOAD FPBASIC, A$D000“ 


21 

* 30 

PRINT CHR$ (4) “BRUN ACCEL.LC.KOPIE“ 


22 

* 



23 

INDADRl EQU $D000 


24 

INDADR2 EQU $1000 ;Anfang 


25 

INDADR3 EQU $4000 ;Ende+1 


26 

INDl 

EQU $FC ;-$FD 


27 

IND2 

EQU $FE ;-$FF 


28 

ACCEL EQU $C086 


29 

* 



30 


-Kopie nach unten- 


31 

* 






1 

ORG $300 




2 

* 




3 

* ACCEL.WAIT 




4, 

* = 




5 

* 




6 

ADRl EQU $C000 




7 

ADR2 EQU $FFFF 




8 

* 




9 

* Wenn ADRl im Bereich 




10 

* $C000-$CFFF liegt, dann 




11 

# beträgt die Warteschleife 




12 

# ca. 30 s statt ca. 20 s 




13 

* bei einer beliebigen anderen 




14 

* ADRl. Wenn zusätzlich ADR2 




15 

* im Bereich $C000-$CFFF liegt. 




16 

^ beträgt Warteschleife ebenfalls 




17 

* ca, 30 s. Wenn aber nur ADR2 




18 

* allein im Bereich $C000-$CFFF 




19 

* liegt, beträgt die Warteschleife 




20 

* wieder ca. 20 s. Fazit: 




21 

# Ein spürbare Zeitverzögerung 




22 

* ist nur dann gegeben, wenn 




23 

* eine Adresse im Bereich 




24 

* $C000-$CFFF quasi permanent 




25 

* angesprochen wird. 




26 

* 

0300: A2 

6F 


27 

LDX #111 

0302: 20 

09 

03 

28 

WAITl JSR WAIT2 

0305: CA 



29 

DEX 

0306; DO 

FA 


30 

BNE WAITl 

0308: 60 



31 

RTS 

0309: 8E 

20 

03 

32 

WAIT2 STX XSAVE 

030C: A2 

00 


33 

LDX #0 

030E: AO 

00 


34 

LDY #0 

0310: AD 

00 

CO 

35 

WAIT3 LDA ADRl ;Adrl 

0313; CA 



36 

DEX 

0314: DO 

FA 


37 

BNE WAIT3 

0316: AD 

FF 

FF 

38 

LDA ADR2 ;Adr2 

0319: 88 



39 

DEY 

031A: DO 

F4 


40 

BNE WAIT3 

031C: AE 

20 

03 

41 

LDX XSAVE 

031F: 60 



42 

RTS 

0320: 00 



43 

XSAVE HEX 00 




1 

ORG $0180 




2 

* 




3 

* ACCEL.BOOT 




4 

* = 




5 

* 




6 

^ Diese Routine wird von einem 




7 

* nicht näher bekannten ROM- 




8 

* Bauelement der Accelerator- 




9 

* Karte nach dem Einschalten 




10 

* des Apple in den Stack 




11 

* kopiert durch eine nachfolgend 




12 

* nicht aufgeführte Routine, 




13 

* die ihrerseits im Stack 




14 

* ab $0100 liegt. 




15 

* Danach erfolgt ein Sprung 




16 

* nach $0180 zu der eigentlichen 




17 

* hier disassemblierten Routine, 




18 

* die das echte ROM $D000-$FFFF 




19 

* in das Schein-ROM der Accelerator- 




20 

* karte movt. 




21 

* 




22 

* 




23 

INDL EQU $04 




24 

- INDH EQU $05 




25 

ACCEL EQU $C086 




26 

WRROMBKl EQU $C08A 




27 

WRR0MBK2 EQU $C082 




28 

RESET EQU $FA62 




29 

ROM EQU $D000 




30 

* 




31 

* LDA #$03 STA $C086 ist ein 




32 

* in der Anleitung von Titan nicht 




33 

* dokumentierter Softswitch, um 




34 

* ein WRITE-ENABLE der R0M-16K 




35 

* der Karte zu ermöglichen. 
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32 

* 

Pointer initialisieren 





33 





0300 

A9 

00 


34 



LDA 

+<INDADR1 ;$D000 

0302 

85 

FC 


35 



STA 

INDl 

0304 

A9 

DO 


36 



LDA 

#>INDADR1 

0306 

85 

FD 


37 



STA 

INDl-Pl 





38 





0308 

A9 

00 


39 



LDA 

#<INDADR2 ;$1000 

030A 

85 

FE 


40 



STA 

IND2 

0300 

A9 

10 


41 



LDA 

#>INDADR2 

030E 

85 

FF 


42 



STA 

IND2-I-1 





43 









44 

* 

Accelerator- 

-LC Bank 2 lese- 





45 

* 

fähig 

machen. 





46 





0310 

A9 

05 


47 



LDA 

#5 ;ACCEL:5 

0312 

8D 

86 

00 

48 



STA 

ACCEL 

0315 

AD 

83 

00 

49 



LDA 

$0083 ;RDBK2 

0318 

AD 

83 

00 

50 



LDA 

$0083 :WRBK2 





51 

* 








52 

* 

$D000-$FFFF nach $1000-$3FFF kopieren 





53 

* 




031B 

AO 

00 


54 



LDY 

#0 

031D 

Bl 

FC 


55 

LOOPl 

LDA 

(INDl),Y 

03IF 

91 

FE 


56 



STA 

(IND2),Y 

0321 

08 



57 



INY 


0322 

DO 

F9 


58 



BNE 

LOOPl 

0324 

E6 

FD 


59 



INC 

INDl-El 

0326 

E6 

FF 


60 



INC 

IND2+1 

0328 

A5 

FD 


61 



LDA 

INDl-El 

032A 

DO 

Fl 


62 



BNE 

LOOPl 





63 

* 




0320: 

: AD 

81 

00 

64 



LDA 

$0081 ;RDR0MBK2 

032F 

: AD 

81 

00 

65 



LDA 

$0081 :WRRAMBK2 





66 

* 








67 










- i\opi@ nOiCn ODsn 





68 

* 








69 

* 

Pointer initialisieren 





70 

* 




0332 

A9 

00 


71 



LDA 

*<INDADR2 ;$1000 

0334 

85 

FC 


72 



STA 

INDl 

0336 

A9 

10 


73 



LDA 

#>INDADR2-P1 

0338 

85 

FD 


74 



STA 

INDl+1 





75 

* 




033A 

A9 

00 


76 



LDA 

#<INDADR1 ;$D000 

0330 

85 

FE 


77 



STA 

IND2 

033E 

A9 

DO 


78 



LDA 

#>INDADR1-1-1 

0340 

85 

FF 


79 



STA 

IND2+1 





80 

* 








81 

* 

"ROM“ 

der Accelerator-Karte 





82 

* 

schreibfähig machen! 





83 

* 




0342 

A9 

03 


84 



LDA 

#3 

0344 

8D 

86 

00 

85 



STA 

ACCEL 

0347 

AD 

81 

00 

86 



LDA 

$0081 JRDR0MBK2 

034A 

AD 

81 

00 

87 



LDA 

$0081 ;WRRAMBK2 





88 

* 





89 * $1000-$3FFF nach $D000-$FFFF, 

90 * d.h. in das Accelerator-"ROM" 

91 * kopieren! 





92 

* 





034D 

AO 

00 

93 



LDY 

#0 


034F 

Bl 

FC 

94 

L00P2 

LDA 

(INDl),Y 


0351 

91 

FE 

95 



STA 

(IND2),Y 


0353 

08 


96 



INY 



0354 

DO 

F9 

97 



BNE 

L00P2 


0356 

E6 

FD 

98 



INC 

INDl-Pl 


0358 

E6 

FF 

99 



INC 

IND2-I-1 


035A 

A5 

FD 

100 



LDA 

INDl+1 


0350 

09 

40 

101 



CMP 

#>INDADR3 


035E 

DO 

EF 

102 



BNE 

L00P2 





103 

* 








104 

* "ROM" der Accelerator 

wie quasi 




105 

^ echtes 

ROM 

schreibunfähig machen 




106 

* 





0360: 

: A9 

05 

107 



LDA 

#5 

;ACCEL:5 

0362: 

8D 

86 CO 

108 



STA 

ACCEL 


0365: 

: AD 

81 CO 

109 



LDA 

$0081 

;RDR0MBK2 

0368; 

AD 

81 CO 

110 



LDA 

$0081 

;WRRAMBK2 




111 

* 





036B; 

60 


112 



RTS 



10 PRINT CHR$ 

(4)" 

BLOAD 

ACCEL.LC 

.KOPIE" 


20 X 

= PEEK (49281) 

:X = 

PEEK (49281) 


30 INPUT "LC-FILE:" 

;X$ 





40 PRINT CHR$ 

(4)" 

BLOAD' 

';X$; 

",A$D000" 


50 CALL 

768 
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1 


ORG 

$300 





87 

* 

$1000-$3FFF nach $D000-$FFFF, 




2 

* 







88 

* 

d.h. in das 

Accelerator-"ROM" 




3 

* 

ACCEL.ROM.KOPIEl (Pseudo-ROM) 





89 

* 

kopieren 





4 

m 







90 

* 






5 

* 




0350: AO 

00 


91 


LDY 

#0 




6 

* 

Diese Routine kopiert zunächst 


0352: Bl 

FC 


92 

L00P2 LDA 

(IND1),Y 




7 

* 

den Accelerator-“ROM“-Inhalt 


0354: 91 

FE 


93 


STA 

(IND2),Y 




8 

* 

$DOOO-$FFFF nach $1000-$3FFF 


0356: C8 



94 


INY 





9 

* 

und kopiert dann $1000-$3FFF 


0357; DO 

F9 


95 


BNE 

L00P2 




10 

* 

erneut in das Accelerator-‘‘ROM", 


0359: E6 

FD 


96 


INC 

INDH-l 




11 

* 

nachdem man 

(bei Bedarf) das 


035B: E6 

FF 


97 


INC 

IND2+1 




12 

* 

spätere "ROM" entsprechend 


035D: A5 

FD 


98 


LDA 

INDl-hl 




13 

* 

gepatcht hat. 


035F: C9 

40 


99 


CMP 

#>INDADR3 




14 

* 




0361: DO 

EF 


100 


BNE 

L00P2 




15 

INDADRl EQU 

$D000 





101 

* 






16 

INDADR2 EQU 

$1000 





102 

* 

“ROM" der Accelerator wie quasi 




17 

INDADR3 EQU 

$4000 





103 

* 

echtes ROM schreibunfähig machen 




18 

INDl EQU 

$FC :-$FD 





104 

* 






19 

IND2 EQU 

$FE ;-$FF 


0363: A9 

05 


105 


LDA 

#5 




20 

ACCEL EQU 

$C086 


0365; 8D 

86 

CO 

106 


STA 

ACCEL 




21 

* 




0368; AD 

81 

CO 

107 


LDA 

$C081 :RDR0MBK2 




22 


-Kopie nach unten- 


036B: AD 

81 

CO 

108 


LDA 

$C081 ;WRRAMBK2 




23 

* 







109 

* 






24 

* 

Pointer initialisieren 


036E: 60 



110 


RTS 





25 

* 







111 

* 



0300: A9 

00 


26 


LDA 

#<INDADR1 ;$D000 , 





112 

* 

Gewünschte Patches hier ein- 

0302: 85 

FC 


27 


STA 

INDl 





113 

* 

fügen. Es gilt: 

0304: A9 

DO 


28 


LDA 

+>INDADR1 





114 

* 

$1000-$3FFF 

= $D000-$FFFF 

0306: 85 

FD 


29 


STA 

INDl+l 





115 

* 






30 

* 




036F: EA 



116 

PATCH NOP 


0308: A9 

00 


31 


LDA 

#<INDADR2 ;$1000 





117 

* 



030A: 85 

FE 


32 


STA 

IND2 





118 

* 

Beispiel für einen möglichen 

030C: A9 

10 


33 


LDA 

#>INDADR2 





119 

* 

Patch von XAM: Bewirkt 

030E: 85 

FF 


34 


STA 

IND2+1 





120 

* 

nach z.B. 1000.3FFF einen 




35 

* 







121 

* 

Hexdump mit 

16 statt sonst 




36 

* 

Accelerator¬ 

-"ROM" lesefähig 





122 

* 

8 Bytes pro 

Zeile. 




37 

* 

machen. 






123 

* 






38 

* 




0370; A9 

OF 


124 


LDA 

#15 ;sonst 7 

0310: A9 

05 


39 


LDA 

+5 ;ACCEL;5 


0372: 8D 

A6 

3D 

125 


STA 

$3DA6 ;$FDA6 

0312: 8D 

86 

CO 

40 


STA 

ACCEL 


0375: 8D 

BO 

3D 

126 


STA 

$3DB0 ;$FDB0 

0315: AD 

81 

CO 

41 


LDA 

$C081 ;RDR0MBK2 





127 

* 



0318: AD 

81 

CO 

42 


LDA 

$C081 :WRRAMBK2 





128 

* 

Beispiel für einen weiteren 




43 

* 







129 

* 

Patch: Piepston-Änderung. 




44 

* 

$DOOO-$FFFF 

nach $1000-$3FFF kopieren 





130 

* 






45 

* 




0378: A9 

20 


131 


LDA 

#$20 ;sonst $0C 

03IB: AO 

00 


46 


LDY 

#0 


037A: 8D 

E5 

3B 

132 


STA 

$3BE5 ;$FBE5 

031D: Bl 

FC 


47 

LOOPl LDA 

(INDl),Y 


037D: 60 



133 


RTS 


031F: 91 

FE 


48 


STA 

(IND2),Y 









0321: C8 



49 


INY 










0322: DO 

F9 


50 


BNE 

LOOPl 









0324; E6 

FD 


51 


INC 

INDH-l 









0326; E6 

FF 


52 


INC 

IND2+1 





1 


ORG 

$300 

0328; A5 

FD 


53 


LDA 

INDl+1 





2 

* 



032A: DO 

Fl 


54 


BNE 

LOOPl 





3 

* 

ACCEL.ROM.K0PIE2 (Eohtes ROM) 




55 

* 







4 

* 



032C: AD 

81 

CO 

56 


LDA 

$C081 :RDR0MBK2 





5 

* 



032F: AD 

81 

CO 

57 


LDA 

$C081 ;WRRAMBK2 





6 

* 

Diese Routine kopiert zunächst 




58 








7 

* 

den echten Apple-ROM-Inhalt 




59 

* 

Hier ggf. RTS, falls späteres 





8 

* 

$D000-$FFFF nach $1000-$3FFF 




60 

* 

"ROM" manuell vom Monitor aus 





9 

* 

und kopiert dann $1000-$3FFF 




61 

* 

gepatcht werden soll. 





10 

* 

in das Accelerator-“ROM", 




62 

* 







11 

* 

nachdem man 

(bei Bedarf) das 

0332: 20 

6F 

03 

63 


JSR 

PATCH 





12 

* 

spätere "ROM" entsprechend 




64 

* 







13 

* 

gepatcht hat. 




65 


-Kopie nach oben- 





14 

* 






66 

* 







15 

INDADRl EQU 

$D000 




67 

* 

Pointer initialisieren 





16 

INDADR2 EQU 

$1000 




68 

* 







17 

INDADR3 EQU 

$4000 

0335: A9 

00 


69 ' 


LDA 

#<INDADR2 ;$1000 





18 

INDl EQU 

$FC ;-$FD 

0337; 85 

FC 


70 


STA 

INDl 





19 

IND2 EQU 

$FE ;-$FF 

0339; A9 

10 


71 


LDA 

+>INDADR2+1 





20 

ACCEL EQU 

$C086 

033B: 85 

FD 


72 


STA 

INDl+1 





21 

* 






73 

* 







22 


-Kopie nach unten- 

033D: A9 

00 


74 


LDA 

#<INDADR1 ;$D000 





23 

* 



033F: 85 

FE 


75 


STA 

IND2 





24 

* 

Pointer initialisieren 

0341: A9 

DO 


76 


LDA 

+>INDADRH-1 





25 

* 



0343: 85 

FF 


77 


STA 

IND2+1 


0300: A9 

00 


26 


LDA 

#<INDADR1 ;$D000 




78 

* 




0302: 85 

FC 


27 


STA 

INDl 




79 

* 

"ROM" der Accelerator-Karte 


0304: A9 

DO 


28 


LDA 

+>INDADRl 




80 

* 

schreibfähig machen! 


0306: 85 

FD 


29 


STA 

INDl+1 




81 

* 







30 

* 



0345: A9 

03 


82 


LDA 

+3 ;ACCEL:3 


0308: A9 

00 


31 


LDA 

#<INDADR2 ;$1000 

0347: 8D 

86 

CO 

83 


STA 

ACCEL 


030A; 85 

FE 


32 


STA 

IND2 

034A: AE 

81 

CO 

84 


LDX 

$C081 ;RDR0MBK2 


030C: A9 

10 


33 


LDA 

#>INDADR2 

034D: AE 

81 

CO 

85 


LDX 

$C081 ;WRRAMBK2 


030E: 85 

FF 


34 


STA 

IND2+1 




86 

m 







35 

* 




24 





















36 

37 

38 


* Echtes Apple-ROM lesefähig 

* machen. 


0310 

A9 

03 


39 


LDA 

#3 

0312 

8D 

86 

CO 

40 


STA 

ACCEL 

0315 

AD 

81 

CO 

41 


LDA 

$C081 

0318 

AD 

81 

00 

42 


LDA 

$C081 





43 

* 







44 

* $D000-$FFFF nach $100 





45 

* 



031B 

AO 

00 


46 


LDY 

#0 

031D 

Bl 

FC 


47 

LOOPl 

LDA 

(INDl),Y 

031F 

91 

FE 


48 


STA 

{IND2),Y 

0321 

C8 



49 


INY 


0322 

DO 

F9 


50 


BNE 

LOOPl 

0324 

E6 

FD 


51 


INC 

INDU-l 

0326 

E6 

FF 


52 


INC 

IND2-I-1 

0328 

A5 

FD 


53 


LDA 

INDl-M 

032A 

DO 

Fl 


54 


BNE 

LOOPl 





55 

* 



0320 

: AD 

81 

00 

56 


LDA 

$C081 

032F 

: AD 

81 

CO 

57 


LDA 

$C081 


;ACCEL:3 


;RDR0MBK2 
;WRRAMBK2 


0332: 20 6F 03 


58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 


;RDR0MBK2 
;WRRAMBK2 


Hier ggf. RTS, falls späteres 

* “ROM" manuell vom Monitor aus 

* gepatcht werden soll. 

* 

JSR PATCH 


-Kopie nach oben- 


* Pointer initialisieren 


0335: 

A9 

00 

69 


LDA 

t<INDADR2 

0337: 

85 

FC 

70 


STA 

INDl 

0339: 

A9 

10 

71 


LDA 

#>INDADR2+1 

033B; 

85 

FD 

72 


STA 

INDU-l 




73 

* 



033D; 

A9 

00 

74 


LDA 

#<INDADR1 

033F: 

85 

FE 

75 


STA 

IND2 

0341: 

A9 

DO 

76 


LDA 

*>INDADR1-P1 

0343: 

85 

FF 

77 


STA 

IND2-I-1 


;$1000 


;$0000 


78 

79 

80 
81 


“ROM“ der Accelerator-Karte 
schreibfähig machen! 


0345 

A9 

03 


82 


LDA 

#3 ;ACCEL:3 

0347 

8D 

86 

CO 

83 


STA 

ACCEL 

034A 

AE 

81 

CO 

84 


LDX 

$0081 ;RDR0MBK2 

034D 

AE 

81 

CO 

85 


LDX 

$0081 ;WRRAMBK2 





86 

* 







87 

* 

$1000-$3FFF nach $D000-$FFFF, 





88 

* 

d,h. in das 

Accelerator-“R0M“ 





89 

* 

kopieren 






90 

* 



0350 

AO 

00 


91 


LDY 

#0 

0352 

Bl 

FC 


92 

L00P2 LDA 

(INDl),Y 

0354 

91 

FE 


93 


STA 

(IND2),Y 

0356 

08 



94 


INY 


0357 

DO 

F9 


95 


BNE 

L00P2 

0359 

E6 

FD 


96 


INC 

INDl-Pl 

035B 

E6 

FF 


97 


INC 

IND2-P1 

035D 

A5 

FD 


98 


LDA 

INDU-l 

035F 

C9 

40 


99 


CMP 

#>INDADR3 

0361 

DO 

EF 


100 


BNE 

L00P2 





101 

* 







102 

* 

“ROM“ der Accelerator wie quasi 





103 

* 

echtes ROM schreibunfähig machen 





104 

* 



0363 

A9 

05 


105 


LDA 

#5 

0365 

8D 

86 

CO 

106 


STA 

ACCEL 

0368 

AD 

81 

CO 

107 


LDA 

$C081 ;RDR0MBK2 

036B 

AD 

81 

00 

108 


LDA 

$C081 :WRRAMBK2 





109 

* 



036E 

: 60 



110 


RTS 






111 

* 







112 

* 

Gewünschte 1 

Patches hier ein- 





113 

* 

fügen. Es gilt: 





114 


$1000-$3FFF 

= $D000-$FFFF 





115 

* 



036F 

: EA 



116 

PATCH NOP 



117 

118 

119 

120 


* Patch-Routine nicht aktiv 



O RT~ H — S'T ST EM E 


FORTH Encyc1opedia 

DM 

98,— 

System Guide to FIG FORTH 

DM 

93,— 

Floating Point Listing in FORTH 

DM 

70,60 

Expertensystem in F0RTH79 

DM 

93,— 

Dokumentation derFORTH Konferenzen 
1986, 240 Seiten, 1982, 360 Seiten, 

Je DM 

93,— 

19Ö1, 600 Seiten <2 Bände) 

DM 

156,30 

Rochester FORTH Proceedings 

1931, 1982, 1983 

Je DM 

?s,— 


Z80 FORTH yon LMI auf APPLE-Disk 
APPLE 3D-GraF0RTH 

APPLE II Master FORTH mit Editor, 
Assembler, Debugger, 250 S. Handbuch 
MasterFORTH + Hi res + Floatingp. 
Expertensystem auf Diskette 
■fysFORTH mit E i nf ü hrungskurs 
Professional Applikation Development 
System mit Metacompiler, FPA 
Cross Compi1 er für LMI Systeme 

Ulir unterstützen natürl ich auch andere 


DM 

376,20 

DM 

282,20 

DM 

393,— 

DM 

598,— 

DM 

376,20 

DM 

198,— 

DM 

1881,— 

DM 

1250 ,— 

Rechner , 


fordern Sie doch einfach unseren kostenlosen 


Katalog an: 


FDRTH-SYSTEME Angelika Flesch, Schützenstr. 3, 
7820 Titisee-Neustadt, Tel.: @7651/1665 



Alle Trümpfe aus einer Hand 



Ein Textsystem wie im Film mit: 
AP 17 256KRAMals 
Pseudo disk 

Basic, Pascal, CP/M DM 1690,- 
AP 22 Z80B CPU 6 MHz 

mit 64k RAM DM 895,- 
Das Textprogramm 
Wordstar DM 1310,- 







Bestechende Leistung! 

AP 20: 6800 CPU mit 128K RAM 
AP 20 mit Assembler und Pseudodisk 
AP 20 mit CP/M 68K 
AP 26-A-256K RAM Für AP 20 
AP 26-B-l Megabyle für AP 20 
AP 20 + AP 26 + CP/M 68K 
CP/M 68K mit C-Compiler 
Fortran, Pascal, Basic u.a. 


DM 1459,- 
DM 1595,- 
DM 2268,- 
DM 1695,- 
DM 6450,- 
DM 3642,- 
DM 1356,- 
auf Anfrage 


Disketten mit 

Innenlochverstärkung ss, sd 
lOer Pack DM 55,- 
100er Pack DM 500,- 



Diese Kombination bestimmt Ihre 
Computerzukunft: 

16K RAM Karte DM 165,- 

80Z Karte mi( Softswitch DM 295,— 

ZBOA Karte DM 165,- 

zusammen nur DM 595,— 

alle Preise incl, MWSt 


!3^ COinPULE^UEChni‘< Olper Str. 10 

4800 Bielefeld 14 


lOllRose Marie Lane 16 
Stockton. CA 95207 
TeL 0521/444032 Tel. (209)4 73-7473 
West-Germany USA 


25 





























Applesoft simuliert 
Turtle Graphic 



Turtle Graphic ist ein in viele Hoch¬ 
sprachen, wie zum Beispiel in UCSD- 
Pascal oder im Apple Graforth ][, inte¬ 
griertes Graphic-System. Es eignet 
sich besonders für den unbedarften 
Anwender, der damit ohne mathemati¬ 
schen Ballast an den Computer heran¬ 
geführt wird. Eine der bekanntesten 
Anwendungen dürfte wohl die Pro¬ 
grammiersprache Logo sein, die sich 
vor allem für Kinder eignet. 


Harald Grumser 


Das hier vorgestellte Programm stellt die 
wichtigsten Befehle der Turtle (Schildkrö¬ 
te) bereit. Nach dem Programmstart er¬ 
scheint in der Mitte der HGR1 eine Turtle 
in Form eines Quadrates, die ihren 
Schwanz, der mit einem Schreibstift ver¬ 
sehen ist, zum Boden gesenkt hat und in 
Richtung Bildschirmoberkante schaut. Im 
unteren Teil des Bildschirmes erscheint 
der Doppelpunkt als Promptzeichen; die 
Turtle erwartet einen Befehl. 

Gibt man nun zum Beispiel „50 MOVE“ 
ein, so bewegt sich die Turtle um 50 Bild¬ 
punkte nach oben. „90 TURN 50 MOVE“ 
dreht die Turtle um 90 Grad nach rechts 
und bewegt sie wieder um 50 Bildpunkte. 


MOVE bewegt die Turtle um die angege¬ 
bene Anzahl von Punkten in die Richtung, 
in der sie gerade steht. 


Wiederholt man dies noch zweimal, so hat 
sie ein Quadrat gezeichnet. 

Die Befehle, die die Turtle ausführen kann, 
lauten wie folgt: 
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^qRAFik.^ 


TURN dreht die Turtle um die angegebene 
Gradzahl, wobei positive Zahlen nach 
rechts drehen und negative nach links. 
MOVETO bewegt die Turtle zu den ange¬ 
gebenen Koordinaten, wie sie bei HPLOT 
benutzt werden (279 • 159 Punkte). 
TURNTO dreht die Turtle in die angegebe¬ 
ne Richtung, („-90 TURNTO“ dreht die 
Turtle in Richtung des linken Bildschirm¬ 
randes.) 

TURTLE löscht den Bildschirm und posi¬ 
tioniert die Turtle wie beim Programmstart. 
PENUP hebt den Schreibstift, so daß bei 
der nächsten Bewegung kein Strich gezo¬ 
gen wird. 

PENDOWN senkt den Schreibstift wieder. 


Der Leser wird sich vielleicht fragen, war¬ 
um die Parameter vor dem Befehl stehen. 
Tippt man eine Zahl ein, so wird diese auf 
dem sogenannten Stack (Stapel) abgelegt. 
Braucht die Turtle einen Parameter, so holt 
sie sich diesen vom Stack. Ein Quadrat 
läßt sich also auch durch Eingabe von „50 
90 50 90 50 90 50 MOVE TURN MOVE 
TURN MOVE TURN MOVE“ zeichnen. 
Das gleiche gilt auch für die Arithmetik; die 
Turtle kennt die vier Grundrechenarten. 
Zuerst werden die Operanden auf dem 
Stack abgelegt und dann der Operator dar¬ 
auf angewandt. So ergibt „20 30 -H 
MOVE“ eine Bewegung um 50 Schritte. 
Dieses Verfahren nennt sich Reverse Po- 
lish Notation (Umgekehrte polnische Nota¬ 
tion) oder auch Postfix-Notation. Um dies 
noch einmal an einem Beispiel zu erläu¬ 
tern, sei der Ausdruck (1 +2) * (3-k4) zu 
berechnen: Das Ergebnis würde lauten 
„ 1 2 + 3 4 -h * Die Turtle stellt nun 
einige Befehle zur Verfügung, um den 
Stack zu manipulieren: 


H— ^ / holen zwei Zahlen vom Stack, 
verknüpfen sie mit dem jeweiligen Opera¬ 
tor und legen das Ergebnis wieder auf dem 
Stack ab. 

PULL holt eine Zahl vom Stack, ohne sie 
zu benutzen. 

DUP dupliziert die oberste Zahl auf dem 
Stack. „DUP wäre somit die Operation 
zum Potenzieren. 

SWAP vertauscht die oberen beiden Zah¬ 
len auf dem Stack. „3 10 SWAP -“ ergibt 
also 7, während „3 10 -“ -7 ergibt. 

PICK holt sich einen Index vom Stack und 
kopiert dann die von oben indizierte Zahl 
auf den Stack. Ein Beispiel macht dies 
wohl deutlicher:„10 20 30 2 Pick“ ergibt 
auf dem Stack „10 20 30 20“, „1 PICK“ 
enspricht also dem DUP-Befehl. 


Bei dem Quadrat oben würde es sich als 
praktisch erweisen, wenn mehrmals zu 
wiederholende Befehle als Schleife (Loop) 
eingegeben werden könnten. Selbstver¬ 
ständlich ist die Turtle auch dazu in der 
Lage. Die zu wiederholenden Befehle 
werden zwischen „DO“ und „LOOP" ein¬ 
geschlossen. Als Schleifenzähler holt sich 
„DO“ eine Zahl vom Stack. „4 DO 50 
MOVE 90 TURN LOOP“ würde also unser 
Quadrat zeichnen. 

Unsere Turtle kann jedoch noch mehr, 
nämlich neue Befehle lernen. Eine zu ler¬ 
nende Befehfsfolge wird durch „ LEARN> “ 
und „<“ eingeschlossen, wobei nach 
„LEARN>“ der Name des neuen Befehls 
folgt. Nach der Eingabe von „LEARN> 
QUADRAT 4 DO 50 MOVE 90 TURN 
LOOP <“ zeichnet die Turtle jedesmal ein 
Quadrat, wenn der Befehl „QUADRAT“ 
eingegeben wird. Der linke Stern in der 
Grafik 1 wird somit gezeichnet durch die 
Befehle „20 DO QUADRAT 18 TURN 
LOOP“ 



Grafik 1 


Es sei nicht verschwiegen, wie der Fünf¬ 
zack in der abgebildeten Grafik erzeugt 
wird. „LEARN> FUENFZACK 216 TURN¬ 
TO PENUP DUP 2 / MOVE PENDOWN 18 
TURNTO 5 DO DUP MOVE 144 TURN 
LOOP <“ zeichnet einen Fünfzack um die 
Stelle, an der sich die Turtle gerade befin¬ 
det, in der angegebenen Größe. 

Dem Leser sei es überlassen auszutüfteln, 
wie die Figur in der Bildmitte entsteht. Ein 
Tip: Es handelt sich um eine Menge ver¬ 
drehter Siebenecke. 

Abschließend sollen noch einige Befehle 
erläutert werden, die das Arbeiten mit der 
Turtle erleichtern: 

TEXT schaltet auf nur Text um, so daß der 
ganze Bildschirm zur Eingabe von Befeh¬ 
len zur Verfügung steht. 

GRAPH schaltet zurück auf HGR1, ohne 
den Bildschirm zu löschen. 


LIST listet alle Befehlswörter samt der neu 
erlernten. Nach 22 Wörtern geht es erst 
nach Tastendruck weiter. 

FORGET vergißt alle Befehle ab dem spe¬ 
zifizierten. Da neue Befehle bereits neu 
erlernte beinhalten können, geht die Turtle 
davon aus, daß nach Löschen des Befehls 
„QUADRAT“ auch der Befehl „FUENF¬ 
ZACK“ nicht mehr ausgeführt werden 
kann. 

STACK listet den gesamten Stack, wobei 
auch hier nach 22 Zahlen auf einen Ta¬ 
stendruck gewartet wird. Der Stack kann 
insgesamt 101 Zahlen beinhalten. 

BYE verabschiedet sich und springt zu¬ 
rück in den Applesoft-Direktmodus. 

Zur Eingabe sei folgendes bemerkt: In 
einer Eingabezeile können bis zu 50 Be¬ 
fehle stehen, die von mindestens einem 
Blank (Leerzeichen) voneinander getrennt 
sein müssen. Außer den Namen nach 
„LEARN>“ und „FORGET“ können sie 
aber auch einzeln eingegeben werden. 
Tritt während des Lernens ein Fehler auf, 
so wird alles ignoriert. Dasselbe gilt, wenn 
mehr „DO“ als „LOOP“ Befehle oder um¬ 
gekehrt im Lernmodus auftauchen. Schlei¬ 
fen werden dadurch realisiert, daß deren 
Inhalt vorübergehend gelernt wird. Daher 
gilt für sie dasselbe wie oben. Während 
des Lernens führt die Turtle die Befehle 
nicht aus. Sollte sie also einmal wider Er¬ 
warten nicht reagieren, so kann das daran 
liegen, daß ein „<“ oder „LOOP" fehlt. 
„<“ schließt im Direktmodus alle Schlei¬ 
fen, ohne sie auszuführen, meldet sich 
aber mit „MISSING DO“. Die Standardbe¬ 
fehle können nicht mit „FORGET“ ge¬ 
löscht werden, und ein bereits erlernter 
Befehl kann nicht nochmals gelernt 
werden. 

Die Fehlermeldungen sind im großen und 
ganzen selbsterklärend. „OUT OF MEMO¬ 
RY“ tritt auf, wenn die Anzahl der erlernten 
Befehle plus der der aktiven Schleifen 21 
überschreitet. 

Während die Turtle ein Programm abarbei¬ 
tet, kann sie durch CtrI-S gestoppt 
werden. 

Die Turtle kann sich nicht über den Bild¬ 
schirmrand hinaus bewegen, sondern 
schneidet die Koordinaten ab, was bei grö¬ 
ßeren Figuren zu Verzerrungen führt. 

Das Programm selbst ist nicht im Hinblick 
auf maximale Geschwindigkeit, sondern 
auf Lesbarkeit hin geschrieben worden. 














Der einzige Beitrag zur Erhöhung der Ge¬ 
schwindigkeit ist die Verlegung der Initiali¬ 
sierungsroutine an den Schluß (Zeile 
9000-9995) und die Nennung der Varia¬ 
blen in der Reihenfolge ihrer Häufigkeit. 

In Zeile 20-60 wird auf die Eingabezeile 
gewartet und daraus in der Routine 8000- 
8999 ein einzelner Befehl abgespalten 
und dessen Index (Variable K) gesucht. 
Danach wird in der Routine 70-99 in das 
entsprechende Unterprogramm verzweigt. 
Hier wird auch das Learnflag gesetzt und 
mit Hilfe von Epsilon die Schleifentiefe 
gezählt. Ist der Befehl selbst eine Zahl, so 
wird K um OFFSET erhöht, somit enthält K 
die Information über die Zahl. 

Die Routinen in 100-999 sind die ver¬ 
schiedenen Unterprogramme für die Tur¬ 
tle, die in 1000-1999 die für den Stack. 
Bevor auf die LOOP- und LEARN>-teile 
eingegangen wird, ist es sinnvoll, die Ab¬ 
speicherung der neuen Befehle zu erläu¬ 
tern. Für die neu zu lernenden Befehle gibt 
es eine Matrix L, die aus 21 Zeilen zu je 50 
Spalten besteht. Ein Befehl besetzt nun 
eine Zeile derart, daß dessen Indizes in 


dieser Zeile nacheinander abgelegt wer¬ 
den, gefolgt von einer Null. 

Wird nun einer dieser Befehle aufgerufen, 
so verzweigt das Programm nach 7000, 
wo diese einzelnen K-Werte ausgelesen 
und dem Verteiler ab Zeile 70 zugeführt 
werden. Da es möglich ist, in einem neuen 
Befehl einen ebenfalls neuen Befehl auf¬ 
zurufen, kann dieses Unterprogramm sich 
selbst neu aufrufen. Damit bei dieser Re¬ 
kursion keine Zeiger verlorengehen, müs¬ 
sen diese in Form von Vektoren LI ,L2 und 
deren Pointer NLP aufbewahrt werden. 
Dasselbe gilt für die Routine in 2500-2999, 
die dieselbe Rekursion für geschachtelte 
Schleifen darstellt, wobei diese über einen 
anderen Pointer LLP verwaltet werden. 
Bleibt noch der Schleifenstart in 2000- 
2499, der einsichtig ist, und die Lernrouti¬ 
ne in 3000-3999: Dort wird der Name ab¬ 
gefragt, abgespeichert und die Pointer zur 
Abspeicherung in der L-Matrix gesetzt, 
beziehungsweise eine Null ans Ende der 
Zeile geschrieben und die Anzahl der Be¬ 
fehle IT um eins erhöht. 

In der Fehlerbehandlungsroutine in 6000- 


6999 ist Zeile 6510 zu erläutern. Diese 
Interpreter-Routine initialisiert den Return¬ 
stack. Dies ist erforderlich, da sonst nach 
einem Programmabsturz der Returnstack 
noch belastet wäre und die für die Rekur¬ 
sionen benötigte Schachtelungstiefe nicht 
mehr erreicht würde. (Der Returnstack 
kann nur 25 Returnadressen aufnehmen). 
Es ist in diesem Zusammenhang auch da¬ 
von abzuraten, die Variable NL zu vergrö¬ 
ßern, da in nicht mehr wie 25 Unterpro¬ 
grammebenen gesprungen werden kann. 

Zuletzt noch ein paar Tips für diejenigen, 
die das Programm durch eigene Befehle 
erweitern wollen. Zuerst schreibe man sei¬ 
ne Erweiterung in einen freien Bereich. 
Danach gebe man dieser einen Namen 
und füge diesen in Zeile 9220 an. Sodann 
erhöhe man IS in Zeile 9110 um eins und 
erweitere die Zeilenliste in Zeile 90 um 
seine neue Routine. 

Es ist davon abzuraten, seinen neuen Be¬ 
fehl in der Mitte der vorhandenen Befehle 
anzuordnen, da dann die Abfragen in Zeile 
70-99 nicht mehr stimmen. 


c 

TKMBSTONE-MICRO 

C 


Th. Tank & G. Körber 


MESON II, 48 K 

1100,- DM 

Joyport, zum Anschluß von zwei 


MESON II, 64 K 


ATARI-Joysticks 

40,- DM 

(16 K + Z 80-Card) 

1250,- DM 

ADD2 B, (VIA 6522) 


beide Rechner mit 10er-Block, 1 Jahr Garantie 

mit RAM -1- Backup 

170,- DM 

Z 80-Card 

125,- DM 

ADD2 L, Leerplatine 

55,- DM 

16 K-Card 

125,- DM 

ADD4 B, (PIA 6821) 


Floppy-Disk 5'k" 

480,- DM 

mit RAM + Backup 

150,- DM 

Controller-Card 

150,- DM 

ADD4 L, Leerplatine 

45,- DM 

PAL-Card + Modulator 

170,- DM 

PIA-Card mifWrap-Feld ausgerüstet 

MESON II. Leerolatine 

85,- DM 



Tastaturen und Gehäuse auf Anfrage 

Entwicklungen auf Anfrage 

> 

Gardeschützenweg 72, 

1000 Berlin 45 

> 

I 

'm 030/8 33 13 03 (SHOP), Q 7 46 57 28 (BÜRO) 

1 


28 













0 REM ******************** 

1 REM TURTLE GRAPHIK 

2 REM ***#***^^^*^^n(f ********* 

3 REM 

4 LOMEM: 4 * 16 t 3 

5 REM Hinter HGR 
10 GOSUB 9000 

15 GOSUB 100 

19 ; 

20 REM Hole Eingabezeile und arbeite sie ab 
25 PRIGHT = 0 

30 INPUT ":";LINE$ 

35 GOSUB 8000 
40 IF K = 0 THEN 25 

45 IF K = IT + 2 THEN ERFLG = 1: GOTO 6000 
50 GOSUB 70 
55 GOTO 35 
60 : 

70 REM Verteiler 

72 IF PEEK (KBD) = CS THEN 6000 

74 IF K = 22 THEN LRNFLG = LRNFLG - EPS: REM IN$ = "LOOP" 
76 IF LRNFLG = 0 OR K = 24 THEN 88: REM Direkt Modus oder 
IN$ = "<" 

78 IF LRNFLG < 0 THEN ERFLG = 5: GOTO 6000 

80 IF K = 21 THEN LRNFLG = LRNFLG + EPS: REM IN$="DO" 

82 L(LLP,L2(LLP)) = K;L2(LLP) = L2(LLP) + 1: IF L2(LLP) < = 

INS THEN 86 

84 ERFLG = 8; GOTO 6000 
86 RETURN 

88 IF K > IS + NL + 2 THEN 1100 
90 ON K GOTO 

100,200,300,400,500,600,650,700,750,800,900,1200,1300, 
1400,1500,1600,1600,1600,1600,1900,2000.2500,3000,3500, 
9996 

92 GOTO 7000; REM K > IS + 1 -> Ausfuehren eines 
gelernten Befehls 
99 : 

100 REM TURTLE 

110 HOME : HGR : VTAB 21 

120 DIR = 0:PX = MX / 2:PY = MY / 2 

130 HC = 1: HCOLOR= 3 

140 : 

150 REM DRAW TURTLE 
160 XDRAW 1 AT PX,PY 
170 IF NOT HC THEN 190 
180 HPLOT PX,PY 
190 RETURN 

199 : 

200 REM MOVE 
205 GOSUB 1000 
210 GOSUB 150 

215 PX = PX + SIN (DIR / 180 * PI) * ST 

220 PY = PY - COS (DIR / 180 * PI) * ST 

225 IF PX > MX THEN PX = MX 

230 IF PX < 0 THEN PX = 0 

235 IF PY > MY THEN PY = MY 

240 IF PY < 0 THEN PY = 0 

245 IF NOT HC THEN 255 

250 HPLOT TO PX,PY 

255 GOTO 150 

299 : 

300 REM TURN 
310 GOSUB 1000 
320 DIR = DIR + ST 

330 DIR = 360 * (DIR / 360 - INT (DIR / 360)) 

340 RETURN 

399 : 

400 REM MOVETO 
410 GOSUB 1000 
420 A = ST 

430 GOSUB 1000 

440 GOSUB 150: REM Kein XDRAW der Turtle vor Pruefung des 
Stacks 

450 PY = A:PX = ST 
460 GOTO 225 

499 : 

500 REM TURNTO 
510 GOSUB 1000 
520 DIR = ST 
530 GOTO 330 

599 : 

600 REM PENUP 
610 HC = 0 

620 RETURN 

649 : 

650 REM PENDOWN 
660 HC = 1 


670 RETURK 

699 : 

700 REM TEXT 

710 TEXT : HOME : INVERSE 

720 PRINT SPC( 13);"TURTLE GRAPHIK"; SPC( 13) 

730 NORMAL : POKE 34,1: REM Textfenster: WINDOWTOP = 1 
740 RETURN 

749 : 

750 REM GRAPH 

760 POKE - 16304,0: REM HGR Schalter; andere Schalter 
durch TURTLE gesetzt 
770 HOME 
780 VTAB 21 
790 RETURN 

799 : 

800 REM LIST 

810 FOR I = 0 TO IT 
820 PRINT "- ";I$(I) 

830 IF (I + 1) / 22 < > INT ((I + 1) / 22) THEN 850 

840 GET A$: IF ASC (A$) = CS - 128 THEN I = IT 

850 NEXT 
860 RETURN 

899 : 

900 REM FORGET 

910 IF LRNFLG < > 0 THEN 940 

920 GOSUB 8000 

930 IF K > IS + 1 AND K < = IT + 1 THEN 950 

940 ERFLG = 9: GOTO 6000 

950 IT = K - 2 

960 LLP = IT - IS - 1 

970 RETURN 

999 : 

1000 REM Hole vom Stack 

1010 IF SP < 0 THEN ERFLG = 2: GOTO 6000 

1030 ST = ST(SP) 

1040 SP = SP - 1 
1050 RETURN 

1099 : 

1100 REM Schiebe auf den Stack 

1110 IF SP = 100 THEN ERFLG = 3: GOTO 6000 

1120 SP = SP + 1 

1130 ST(SP) = K - OFFSET 

1140 RETURN 

1199 : 

1200 REM PULL holt ein "Dummy" 

1210 SP = SP - 1 

1220 IF SP < - 1 THEN SP = - 1 

1230 RETURN 

1299 : 

1300 REM Dupliziere 
1310 IF SP < 0 THEN 1010 
1320 K = ST(SP) + OFFSET 
1330 GOTO 1110 

1399 : 

1400 REM SWAP vertauscht die oberen beiden Stackelemente 
1410 A = ST(SP) 

1420 ST(SP) = ST(SP - 1) 

1430 ST(SP - 1) = A 
1440 RETURN 

1499 : 

1500 REM PICK holt das von oben indizierte Stackelement 
1510 GOSUB 1000 

1520 I = SP - ST + 1 
1530 IF SP < 0 THEN 1010 
1540 IF I > SP THEN 1580 
1550 IF I < 0 THEN 1=0 
1560 SP = SP + 1 
1570 ST(SP) = ST(I) 

1580 RETURN 

1599 : 

1600 REM STACK + - * / 

1610 GOSUB 1000 

1620 ON K - 15 GOTO 1630,1640,1650.1660 

1630 ST(SP) = ST(SP) + ST: RETURN 

1640 ST(SP) = ST(SP) - ST: RETURN 

1650 ST(SP) = ST(SP) * ST: RETURN 

1660 IF ST = 0 THEN ERFLG = 4: GOTO 6000 

1670 ST(SP) = ST(SP) /ST: RETURN 

1699 : 

1900 REM STACK 

1905 I = - 1 

1910 1=1+1: IFI>SP THEN 1960 

1920 PRINT CHR$ (91);" ";ST(I);" "; CHR$ (93) 

1930 IF (I + 1) / 22 < > INT ((I + 1) / 22) THEN 1950 

1940 GET A$: IF ASC (A$) = CS - 128 THEN I = SP 

1950 GOTO 1910 
1960 RETURN 

1999 : A 
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2000 REM DO-Schleifenstart 
2010 LRNFLG = LRNFLG + EPS 
2020 LLP = LLP + 1 

2030 IF LLP > NL THEN ERFLG = 7: GOTO 6000 
2040 L2(LLP) - 0 
2050 RETURN 

2499 : 

2500 REM Schleifenende (LOOP) 

2510 L(LLP,L2(LLP)) = 0 

2520 GOSUB 1000:COUNT(LLP) = ST 

2530 IF COUNT(LLP) < = 0 THEN 2560 

2540 K = IS + LLP + 2: GOSUB 7000 

2550 COUNT(LLP) = COUNT(LLP) - 1: GOTO 2530 

2560 LLP = LLP - 1 

2570 RETURN 

2999 : 

3000 REM LEARN 

3010 IF LRNFLG < > 0 THEN 3040 

3020 GOSUB 8000 
3030 IF K = IT + 2 THEN 3050 
3040 ERFLG = 1: GOTO 6000 
3050 LRNFLG = 1 

3060 IF IT - IS > NL THEN ERFLG = 7: GOTO 6000 
3070 I$(IT + 1) = IN$ 

3080 LLP = LLP + 1:L2(LLP) = 0 
3090 RETURN 

3499 : 

3500 REM "<" Ende des Lernmodus 
3510 IF LRNFLG = 0 THEN 6200 
3520 LRNFLG = LRNFLG - 1 

3530 IF LRNFLG < 0 THEN ERFLG = 5: GOTO 6000 

3540 IF LRNFLG > 0 THEN ERFLG = 6: GOTO 6000 

3550 IT = IT + 1 

3560 L(LLP,L2(LLP)) - 0 

3570 RETURN 

3999 : 

6000 REM Fehlerbehandlungsroutine 
6010 POKE 49168,0 
6020 REM Tastaturruecksetzimpuls 
6030 PRINT G$; 

6040 ON ERFLG GOTO 

6060,6070,6080,6090,6100,6110,6120,6130,6140 
6050 GOTO 6200 

6060 PRINT "SYNTAX ERROR": GOTO 6200 

6070 PRINT "STACK EMPTY": GOTO 6200 

6080 PRINT "STACK FULL"; GOTO 6200 

6090 PRINT "DIVISION BY ZERO"; GOTO 6200 

6100 PRINT "MISSING DO": GOTO 6200 

6110 PRINT "MISSING LOOP": GOTO 6200 

6120 PRINT "OUT OF MEMORY": GOTO 6200 

6130 PRINT "TO MANY INSTRUCTIONS": GOTO 6200 

6140 PRINT "CAN'T FORGET" 

6200 ERFLG = 0:LRNFLG = 0 

6500 NIP = - 1:LLP = IT - IS - 1 

6510 CALL - 10621 

6520 REM Initialisiere Basic-Return-Stack 
6530 GOTO 25 

6999 : 

7000 REM Fuehre einen gelernten Befehl aus 
7010 NIP = NIP + 1 

7020 IF K > IS + NL + 2 THEN K = K - OFFSET 

7030 Ll(NIP) = K - 2 - IS:L2(NIP) = 0 

7040 K = L(L1(NIP),L2(NIP)):L2(NIP) = L2(NIP) + 1 

7050 IF K = 0 THEN NIP = NIP - 1: GOTO 7070 

7060 GOSUB 70: GOTO 7040 

7070 RETURN 

7999 ; 

8000 REM Naechster Instruktions-Index 
8010 LINE$ = LINE$ + " " 

8020 PRIGHT = PRIGHT + 1: IF PRIGHT > LEN (LINE$) THEN K - 
0: RETURN 

8030 IF MID$ (LINE$,PRIGHT,1) = " " THEN 8020 
8040 PLEFT = PRIGHT 

8050 PRIGHT = PRIGHT + 1: IF MID$ (LINE$,PRIGHT,1) < > " ' 

THEN 8050 

8060 INS = MID$ (LINES,PLEFT,PRIGHT - PLEFT) 

8070 IF VAL (INS) = 0 AND IN$ < > "0" THEN 8100 

8080 K = OFFSET + VAL (INS): RETURN 

8100 K = IT + 1 

8110 FOR I = 0 TO IT 

8120 IF I$(I) < > INS THEN 8140 

8130 K = I;I = IT 

8140 NEXT :K = K + 1 

8150 RETURN 

8999 : 

9000 REM Initialisierung 


9010 

9020 

9030 

9040 

9050 

9060 

9070 

9080 

9090 

9100 

9110 

9120 

9130 

9140 

9150 

9160 

9170 

9180 

9190 

9200 

9210 

9220 

9230 

9240 

9250 

9260 

9270 

9280 

9290 

9300 

9310 

9320 

9330 

9340 

9350 

9360 

9370 

9380 

9390 

9400 

9410 

9420 

9430 

9440 

9450 

9995 

9996 

9997 

9998 

9999 
10000 
10001 
10002 

10003 

10004 

10005 


FOR I - 768 TO 768 + 9 
READ A: POKE I,A; NEXT 
DATA 1,0,4,0,40,54,63,36,4.0 
POKE 232,0: POKE 233,3 
R0T= 0: SCALE= 1 

REM Formtabelle fuer die Turtle 
DIM ST(IOO): REM 101 Stackelemente 
SP = - 1:ST = 0: REM Stapelzeiger (Stackpointer) und 

angefordertes Stackelement 
NL = 20: REM Anzahl der zu lernenden Befehle 
INS = 50: REM Anzahl der Instruktiuonen pro Befehl 
IS = 24: REM Anzahl der Standartbefehle 
IT = IS: REM Anzahl der Befehle insgesamt 
DIM IS(IS + NL + 1): REM Feld mit den Befehlsnamen 
FOR I = 0 TO IS 
READ IS(I): NEXT 
DATA TURTLE,MOVE,TURN,MOVETO 
DATA TURNTO,PENUP,PENDOWN 
DATA TEXT,GRAPH,LIST,FORGET 
DATA PULL,DUP,SWAP,PICK 
DATA STACK 

DATA DO.LOOP,LEARN>,< 

DATA BYE 

DIM L(NL,INS): REM Matrix mit NL Befehlen zu je INS 
Instruktionen 

DIM Ll(NL),L2(NL): REM Zeilen- und Spaltenindex der 
"L"-Matrix 

DIM COUNT(NL); REM Zaehler fuer geschachtelte 
Schleifen 

K = 0: REM Instruktionsindex 

KBD = 49152: REM PEEK zur Tastaturabfrage “ 

CS = 147: REM CS = ASC (CTRL-S) 

OFFSET = 2 t 15: REM K wird um OFFSET erhoeht um 
Zahlen als Instruktionen abzuspeichern 
LLP = - 1: REM Zaehler fuer LEARN> und aktive 

Schleifen 

NIP = LLP: REM Zaehler fuer geschachtelte Befehle 
LRNFLG = 0: REM Wird waehrend des Lernmodus auf 1 
gesetzt 

ERRFLG = 0: REM Fehlercode fuer Fehlerbehandlung 
EPS = 1 / 64: REM LRNFLG wird bei jedem DO um EPS 
erhoeht und bei jedem LOOP erniedrigt 
PI = ATN (1) * 4 

PX = 0:PY = 0: REM Plot-Koordinaten 
HC ^ 0: REM Logische Variable fuer PENUP/PENDOWN 
DIR = 0: REM Richtung der Turtle in Grad 
MX - 279;My = 159: REM HGR Fenster 
PLEFT = 0: REM Linker Zeiger der Eingabezeile 
PRIGHT = 0: REM Rechter Zeiger der Eingabezeile 
A = 0:1 = 0: REM Allgemeine Variablen 
G$ - CHR$ (135): REM Bell 
REM LINE$,IN$ sind die Eingabezeile und die daraus 
abgespaltenen Befehle 
RETURN 

REM Ende des Programms 
TEXT : HOME 

PRINT "END OF TURTLE GRAPHIC" 

END 

REM HINWEIS: 

REM Wer dieses Programm mit allen REM's abtippt 
REM und es dann ausfuehrt wird sich wundern. 

REM Programme, die mehr als 25 Diskettensektoren 
lang sind 

REM und die HGR aufrufen, loeschen sich zum Teil 
selbst. 


Peeker-Sammeldiskette 

Die abgedruckten größeren Programme 
sind auch als Sammeldisketten erhältlich, 
die etwa jeden zweiten Monat erscheinen 
und die Listings der vorangehenden zwei 
Hefte zusammenfassen. 
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APPLE 


Der Einstieg über BASIC! 

Die Idee: Maschinenbefehle des Mikroprozessors 
6502 über die BASIC-Befehle POKE, CALL, PEEK im 
Apple abspeichern, ablaufen lassen und Ergebnisse in 
das BASIC-Programm zurücklesen. Grundkenntnisse 
in Basic sind erforderlich. Anschauliche Darstellung der 
6502-Funktionen, der Speicher im Apple und der 
Wirkungen von Maschinenbefehlen - verbunden mit 
Experimentierprogrammen zur Grafik, Akustik, Arith¬ 
metik, Textdarstellung, Verbindung von Bild und Ton 
sowie zum Aufruf der zahlreichen, bereits vorhandenen 
Maschinenprogramme im Apple. 

Der Höhepunkt: Eine schrittweise Einführung in die 
professionelle Entwicklung von Maschinenprogram¬ 
men mit APPLE SYSTEM-MONITOR und APPLE 
MINI ASSEMBLER. 

Von D. Inman/K. Inman, 224 Seiten, Softcover, 
DM 49,- 


te-wi Verlag GmbH 
Theo-Prosel-Weg 1 
8000 München 40 


WeiterfUhrende Literatur... 



APPLE II - 
Anwenderhandbuch 

(L Poole) 

Erst mit Hilfe dieses Leitfadens werden Sie 
Ihren Apple II erfolgreich einsetzen, denn 
Text und Bildmaterial gehen weit über das 
hinaus, was herstellerseitig an Literatur 
angeboten wird. 

416 Seiten, Softcover, DM 56,- 


LOGO- 

Jeder kann programmieren 

(Daniel Watt) 

Buch des Jahres in den USA» Für die 
Computer C64, ATARI, APPLE II, IBM-PC 
und TF99. 

Hochwertiges Textbuch für Logo-Kurse für 
zu Hause und im Lehrbereich. 

A4, DM 59,- (4. Quartal 84) 


APPLE II PASCAL - 
Eine praktische Anleitung 

(A. Luehrmann, H. Peckham) 

Unentbehrlich für alle, die die Programmier¬ 
sprache PASCAL lernen wollen und 
Zugang zu einem Apple-Computer haben. 
544 Seiten, Softcover, DM 59,- 


APPLEII - Bewegte 3D-Graphik 

(Phil Cohen) 

Selbstentworfene Graphiken und Dia¬ 
gramme - animiert oder als Standbilder - 
eben oder räumlich; alle erforderlichen 
BASIC-Programme mit Erklärung finden 
Sie in diesem Buch, 
ca. 190 Seiten, Softcover, DM 49- 


6502- 

Programmieren in Assembler 

(L. Leventhal) 

Dieser Titel aus einer ganzen Reihe von 
Büchern über die Assemblersprachen¬ 
programmierung befaßt sich ausführlich mit: 
dem weitverbreiteten Mikroprozessor 6502. 
704 Seiten, Softcover, DM 59,- 


Macintosh Programmier-Handbuch 

(David Lien) 

Macintosh - Pionier des graphischen 
Computerdialogs - benutzt MICROSOFT 
BASIC. D. Lien’s Buch ist eine souveräne, 
zuverlässige Einführung und Referenz zu 
Macintosh’s Basic. 

450 Seiten, DM 59,- (4» Quartal 84) 


Noch im Programm: 

VisiCalc, 50 Programme auf Diskette, DM 79,- i 


' 77 BASIC-Programme, A4, DM 39,- • CP/M und Wordstar, DM 29,80. 
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Wie man die Grafik 
verdoppeit ^”^'i 

aS ■ 


Teil 1: Double Lores 

Die erweiterte 80-Zeichen karte des Apple 
Ile = 64K*Karte läßt sich auf vielfältige 
Weise einsetzen, zB. als 

- SO-Zeichen-ÖfldschirTTi-Teilspeicher 

- RAM-Dlskspeicher 

- Teilspeicher für doppelte hochauflösen¬ 
de Grafik {Double Hires: 560 mal 192 statt 
280 mal 192 Bildpunkte) 

- Teilspeicher für doppelte niedrigauflö- 
sende Grafik (Double Lores: 80 mal 48 
statt 40 mal 48 Kästen). 

Zur Double Hires werden von Apple in den 
technischen Unterlagen nur vage Anga¬ 
ben gemacht, und die Möglichkeit von 
Double Lores wird überhaupt nicht ange¬ 
deutet. Im ersten Teil dieser Folge wird auf 
die Double Lores eingegangen, während 
sich der zweite Teil mit der Double Hires 
befaßt. 

Die Double Lores wird meines Wissens 
hier erstmals geschildert. Mangels techni¬ 
scher Informationen war es nicht einfach 
herauszufinden, ob sie überhaupt und, 
wenn ja, wie möglich ist, doch zeigte sich 
im nachhinein, daß Double Lores nicht nur 
verblüffend einfach ist, sondern auch in 
einem reinen Applesoft-Programm be¬ 
nutzt werden kann, da hier keine Ge¬ 
schwindigkeitsprobleme auftreten. (Um¬ 
gekehrt muß die Double Hires in Assem¬ 
bler geschrieben werden, da sonst die 
HPLOT-Funktion viei zu langsam ist.) 



Ulrich Stiehl 
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1. Normale Lores-Grafik 


Lores-Befehle 


Bevor wir auf die Double Lores eingehen, 
seien die normalen Lores-Grafik-Befehle 
kurz wiederholt. Der Lores-Grafikbild- 
schirm ist speichermäßig mit dem 40-Zei- 
chen-Textbildschirm identisch. Während 
der 40-Zeichen-Textbi!dschirm jedoch 24 
Zeilen zu je 40 Zeichen umfaßt, kann bei 
dem Lores-Grafikbildschirm genau die 
doppelte Menge an Grafik-Kästchen ge- 
plottet werden. Dies rührt daher, daß in 
jeder Bildschirmspeicherstelle anstelle ei¬ 
nes Buchstabens je zwei Kästchen unter¬ 
gebracht werden. Der Bildschirm nimmt 
den Speicherbereich $0400-$07FF ein 
($0400 = dezimal 1024). Jedes Bytes die¬ 
ses Bereichs - mit Ausnahme sog. ver¬ 
steckter Bildschirmspeicherstellen - kann 
mithin zwei Kästchen aufnehmen. Es gilt 
also: 

Textbiidschirm: 24 Zeilen zu je 40 Zeichen 
Loresbiidschirm: 48 Zeilen zu je 40 Käst¬ 
chen 

Geteiiter Loresbiidschirm: 40 Zeilen zu je 
40 Kästchen plus 4 Textzeilen am unteren 
Bildschirm rand. 

Experiment 1 

Zu Testzwecken schalten wir mit dem Be¬ 
fehl 
GR 

auf Lores-Grafik um und gehen dann mit 
CALL-151 

in den Monitor. Nunmehr geben wir 
400:0F 

ein und sehen, daß ganz links oben (= 
Zeile 0, Spalte 0) ein Kästchen geplottet 
wurde. Geben wir jetzt 
400 :F0 

ein, wird ein Kästchen in derselben Spalte, 
aber statt in der ersten in der zweiten Zeile 
geplottet (= Zeile 1, Spalte 0). Geben wir 
abschließend 
400: FF 

ein, dann wird sowohl das obere wie das 
untere Kästchen sichtbar. $FF ist 1 Byte 
und besteht aus 2 Halbbytes $F und $F. 
Da jedes Halbbyte einen Wert von $0-$F 
oder dezimal 0 bis 15 einnehmen kann, 
gibt es theoretisch 16 Farben von 0 (= 
schwarz) bis 15 (= weiß), die allerdings 
auf einem grünen Monitor nur als unter¬ 
schiedliche Weiß-Grün-Abstufungen sicht¬ 
bar werden. Wer über einen Farbmonitor 
verfügt, kann mit dem Befehl 
COLOR - F 

wobei F als Variablenwert im Bereich 0-15 
liegt, die gewünschte Farbe definieren, die 
dann für alle nachfolgend geplotteten 
Kästchen gilt. 


Soviel zur Theorie des Lores-Bildschirm- 
speichers. Um die Plot-Befehle zu verste¬ 
hen, arbeite man am besten mit einem 
Koordinatensystem in der Art des abgebil¬ 
deten Diagramms 1. In Abweichung vom 
„normalen“ Koordinatensystem ist der 
Origo = Ursprung links oben statt links 
unten. Die X-Achse oder Abszisse kann 
Werte im Bereich 0-39 und die Y-Achse 
oder Ordinate Werte im Bereich 0-39 (bei 
geteiltem Bildschirm) oder 0-47 (bei vol¬ 
lem Bildschirm) einnehmen. Eine waag¬ 
rechte Linie von XI bis X2 heißt Zeile, und 
eine senkrechte Linie von Y1 bis Y2 heißt 
Spalte. 



Diagramm 1 


GR 

schaltet auf Lores-Grafik mit geteiltem 
Bildschirm und Farbe = 0 = schwarz um. 
Deshalb muß man danach mit 

COLOR = F, z.B. COLOR = 15 

die gewünschte Farbe festlegen. 

POKE -16302,0 

schaltet vom geteilten zum vollen Bild¬ 
schirm um. Danach kann man bei Bedarf 
mit 

CALL -1998 

die unteren Zeilen des Lores-Bildschirms 
löschen ($F832 = -1998 = CLRSCR). 

TEXT 

hebt den Grafik-Modus wieder auf. 

PLOTX, Y, z.B. PLOT 39, 39 

plottet ein Kästchen im Schnittpunkt von 
horizontaler X- und senkrechter Y-Achse. 
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Qualitäts- 
Disketten I.Wahl 

BASF-Disketten softsektoriert in Pappkarton 

5.25“-Disketten alle ohne Aufpreis mit Verstärkungsring 
Type Beschreibung _^_ IQ Stk IQOStk 

IXV_4eTPI, I-seltlg, einfache Dichte __ 47,90 469,00 

IDV48 TPI, I-seltlg, doppelte Dichte 49,50 404,50 
1/96V, 96 TPI, I-seltlg, doppelte Dichte 60,50 667,00 
2/96V-. 96 TPI, 2-seltlg. doppelte Dichte _ 02,50 799,50 
Aufpreis für jOer-Pack In Hart~PVC-Klappbox .u..*,,... Je 5,00 

3M/Scotch Sicherheits-Disketten 

5.25‘'-Dtsketten mit Verstärkungsring: softsektorlert. 

744- 0 48 TPI, 1-seitig, doppelte Dichte _ 59,00 579,00 

745- 0 48 TPI, 2-seitig, doppelte Dichte 92,50 887,00 

746- 0 . 96 TPI, 1-seltlg, doppelte Dichte ^ 82,50 775,00 

747- 0 96 TPI, 2-seitig, doppelte Dichte 98,00 922,00 

Wichtig für die sichere Funktion Ihrer Dlsketten-Laufwerke 
7440Kopf-Reinlgungsset für 5,25"-Laufwerke „„„ 49,50 

3,5" - Micro-Disketten I^CI | 
für LISA und MACINTOSH INCU 
3,5"-Dlsketten 1 -seltig, doppelte Dichte Im Ser-Pack 74,50 

Plastikbox für 5,25" - Disketten 

Formschöne Klappbox aus Hart-PVC für ca 10 Disketten In 
den Farben grün, orange, schwarz, hellgrau, elfenbein oder 
anthrazit. Bitte die gewünschte Farbe angeben. Mischbar. 

1 Stk.6.95 10 Stk.59.50 100 Stk. 499.50 





5,25"-Diskettenb0X Sehr preiswert! 

Repräsentative Disketten-ßox aus deutscher Fertigung ln den 
Abmessungen (T x B x H) 306x174x144 mm ohne Schloß mit 
topas farbenem Deckel für ca 80 Disketten und 4 beschrift¬ 
baren Stützplatten 1 Stk ... 27.50 ab 10 Stk ... 24.75 

ABA - Diskettentröge 

Kompakter Trog mit rauchfarbenem Deckel und Schloß. 
Das Unterteil ist platzsparend tm Deckel abstellbar 
Je nach Größe tncl. 4 bzw. 9 beschriftbaren Stützplatten 
5.25'-Mlnt-Dlsketten Abm.: (T x B x H) _ LSik ablOStk 

M35«Abm,: 210x100x175mm für 40 Dl Sk.,.,. 47,50 43,90 
M85.H Abm: 310x100x175mm für 90 Disk. _ 69,50 65,40 
___ 

F40 ^ Abm.: 210x180x175mm für 40 Disk _ 69,50 65,40 
F90 ^ Abm.; 350x 180x 175mm für 90 Disk _ 89,50 85,90 


Datenkassetten 

Universal ^ 1 .Wahl 
Geeignet für olle gängigen Home - Computer 
Baodmaleria}. Eisenoicld Bandmattrlal: Chrom dl dk Id 
Besl-NrlOSt 50SL 1003t BesLiMr ia5L 50 3L IQQ5t 
ClO-FE. 15,95 74,80 142,50 ClO-CR. 17,95 85,00 162,50 
C20-FE.16,95 79,50 152,50 C20-CR. 19,50 92,00 175,50 
C30-FE. 10,65 87,50 167,50 C30-CR .22,25 105,00 199,50 
Hochwertiges Band aus deutscher Fertigung Jede CC In einer 
aufklappbaren Schutzbox mit je 2 Blanco-Aufkleber je Box. 



Apple - Zubehör 

80 Zeichen/64kB-RAM 

für APPLE //e 290 - 

ZS0B/64kD-Ktirte CCP/M3.0,CBASIC.GSX80). 1195,00 
Original ALS Incl. sämtlicher Software. 

CP/M-PLUS-Manuals (CP/ri3.0). 75,00 

Kompletter Satz bestehend aus: User's Guide, SID, System 
Guide, Programmer's Utilities- und Programmer's Guide 
ITOH/EPSON-Vol Igraflklnterface m Kabel 230.00 

Serielles Interface für APPLE Imagewrlter 235,00 

RS-232C - Karte (Serielle Schnittstelle),. 175.00 

Z-80 Karte (ohne Software) Importkarte .... 149,00 

Z-80 Karte (ohne Software) deutsche Herstellung 230.00 
Disk-Controller (ohne Software) 4 Betriebsarten 195.00 




DISTAR- Laufwerk 

voll APPLE kompatibel 


495 .- 


öelbspurfehig, Spur-O-Erkennung, 40 Spuren, 143 kB 


Einzeln getestet für DOS, ProDOS, CP/fl und PASCAL 

Original APPLE PASCAL-Manuala_ 75,00 

(Satz=Language- und Operatlng System Reference Manual) 

Deroktuelleüinweis; 

SOFTWARE/HARDWARE - Gelegenheiten 

AIM/KIM/SYM/SUPERBOARO/NASCOM/SORCERER/APPLE U a. 
Aktuelle Preisliste gegen Freiumschlag anfordem. 


SQfi)rt ab Lager lieferbar 

Macintosh, Apple Ile /llc 

Unverbindliche Vorführung und Beratung. 

6900 Heidelberg I Bres1auerstr.29 Tel.06221/781500 
Geschäftszeiten: Mo - Fr. 9-13 +14 - 18 Sa 9 -13 Uhr 
Versandanschrift: 6900 Heidelberg 1 Dammweg 2 
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HLIN XI, X2 AT Y, z.B. HLIN 0, 39 AT 10 

plottet einen Balken (= Kästchen-Zeile) 
vom linken XI-Wert bis zum rechten X2- 
Wert In der Zeile Y. 

VLIN Y1, Y2 AT X, z.B. VLIN 0, 47 AT 20 

plottet einen Balken (= Kästchen-Spalte) 
vom oberen Yl-Wert bis zum unteren Y2- 
Wert In der Spalte X. 

F = SCRN (X, Y), z.B. F = SCRN (10, 20) 

ermittelt die Farbe oder Farbnummer (0- 
15) im Schnittpunkt von X und Y. 


2. 80-Zeichen-Textbildschirm 

Wie ist nunmehr doppelte Lores-Grafik 
möglich? Wir erinnern uns, daß der Lores- 
Grafikblldschirm speichermäßig mit dem 
40-Zeichen-Textbildschirm identisch ist. 
Schaltet man den Apple Ile mit 
PR#3 

auf 80-Zeichendarstellung, dann umfaßt 
der 80-Zeichen-Textbildschirm 24 Zeilen 
zu je 80 Zeichen. Der Bildschirmspeicher 
selbst ist dann in 2 Flälften unterteilt, näm¬ 
lich In 

a) den unteren Bereich $0400-$07FF auf 
dem 64K-Motherboard, und 

b) den oberen Bereich $0400-$07FF auf 
der 64K-Karte 

Die 80 Spalten oder Stellen einer 80 Zei¬ 
chen umfassenden Zeile werden von 0-79 
numeriert, wobei zwischen den ungeraden 
und geraden Spalten unterschieden wird: 

1,3, 5, ... 77, 79 ungerade = oben 
0, 2, 4, ... 76, 78 gerade = unten 

Damit gibt es „oben“ 40 ungerade und 
„unten“ 40 gerade Spalten. Die 80-Zei- 
chen-Bildschirmroutlnen funktionieren im 
Prinzip wie die entsprechenden 40-Zei- 
chen-Routinen; 

a) Zunächst wird ermittelt, ob die Spalten¬ 
zahl Im Bereich 0-79 eine gerade oder 
eine ungerade Zahl ist. 

b) Dann wird durch einen Softswitch ent¬ 
weder die „obere“ Hälfte für die ungerade 
oder die „untere“ Hälfte des Bildschirm¬ 
speichers für die gerade Spalte aktiviert. 

c) Nunmehr wird die Spaltenzahl durch 2 
geteilt und dann die der 40-Zeichen-Bild- 
schlrmroutine entsprechende Funktion 
aufgerufen. 


Um dies besser zu verstehen, beschrän¬ 
ken wir uns auf einen Abschnitt der ersten 
Zeile des 80-Zeichen-TextbildschIrms 
(Diagramm 2). HTAB-Befehie arbeiten 
applesoftmäßig mit Spaltenzahlen im Be¬ 
reich 1-80 und monitormäßig mit Spalten¬ 
zahlen Im Bereich 0-79. Die eigentliche 
Bildschirm-Poke-Routine arbeitet hinge¬ 
gen mit Spaltenzahlen Im Bereich 0-39, 
die jedoch zweimal Vorkommen, je nach¬ 
dem ob der Softswitch $C055 (= Page 2) 
für die obere oder der Softswitch $C054 
(= Page 1) für die untere Hälfte aktiviert 
wurde. 


können wir nunmehr die doppelte Lores- 
Grafik in den Griff bekommen. 


Experiment 3 

Zu Testzwecken schalten wir mit 
PR#3 

die 80-Zeichenkarte ein und dann mit 
GR 

auf Lores-Modus um. Nun gehen wir er¬ 
neut mit 
CALL-151 

in den Monitor und geben 
C05E:0 



Experiment 2 

Zu Testzwecken schalten wir mit 
PR#3 

die 80-Zeichenkarte ein und gehen dann 
mit 

CALL-151 

In den Monitor. Wenn wir nun 
C055:0 N 400:C1 

eingeben, erscheint ein „A“ (= Hex-Code 
$C1) in VTAB 1, HTAB 1. Dieses „A“ Ist 
intern in der Spalte 0 der oberen Bild¬ 
schirmhälfte abgelegt. Gibt man nun 
C054:0 N 400:C2 

ein, dann erscheint rechts neben dem „A“ 
ein „B“ (= Hex-Code $C2), das somit die 
Position VTAB 1, HTAB 2 einnimmt und in 
der Spalte 0 der unteren Bildschirmhälfte 
liegt. 

3. Doppelte Lores-Grafik 

Mit dem Wissen über die einfache Lores- 
Grafik sowie der groben Kenntnis der 
Speicherorganisation der 80-Zeichenkarte 


ein. Dieser Softswitch, der eigentlich den 
Annunciator 3 betrifft, aktiviert die doppel¬ 
te Lores-Grafik. Wir werden jetzt lauter 
gesperrte Lores-Kästchen sehen, ge¬ 
sperrt deshalb, weil in jeder Zeile nur je¬ 
des zweite Kästchen geplottet ist. Diese 
Kästchen rühren daher, daß nach PR#3 
der Text-Bildschirmspeicher gelöscht, d.h. 
mit $A0 = Spaces = Leertasten gefüllt 
wurde. Nach GR wurde die obere Hälfte 
des Bildschirmspeichers nicht gelöscht, 
d.h. mit $00 gefüllt, weil die Lores-Moni- 
tor-Routinen nichts von der Double Lores 
wissen. Folglich werden die Spaces jetzt 
als Kästchen in der oberen Hälfte interpre¬ 
tiert. Wir entfernen diese momentan stö¬ 
renden Kästchen-Muster mit 

C055:0 N F832G 

und geben danach ggf. noch 

C054:0 

ein, damit sich auch die unteren 4 Textzel¬ 
len des gemischen Lores-Text-Bild- 
schirms normalisieren. Wir werfen nun ei- 
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nen kurzen Blick auf Diagramm 3. In der 
linken unteren Ecke dieses Schaubildes 
sehen wir ein Low-High-Nibble-Muster für 
die Speicherstelle $0400, das wir wie folgt 
verdeutlichen können: 

LI Lr = L links + rechts 
Hl Hr = H links + rechts 


Stellen wir uns vor, daß die 2 oberen L’s 
und die 2 unteren H’s zusammen 4 Dou- 
ble-Lores-Kästchen darstellen, wobei Lfür 
Low Nibble und H für High Nibble steht. 
Bei der einfachen Lores-Grafik enthielt 
beim Experiment 1 die Speicherstelle 
$0400 1 Byte oder 2 Halbbytes = Nibbles, 
die zwei aufeinandergesetzte Lores-Käst- 
chen in der Form 
L 
H 

bildeten. Bei der doppelten Lores-Grafik 
existiert jedoch die Speicherstelle $0400 
physisch zweimal, nämlich „unten“ (Page 
1) und „oben“ (Page 2). Infolgedessen 
muß man nunmehr zwischen linken und 
rechten Low-High-Nibbles differenzieren. 
Dies läßt sich beweisen, indem wir folgen¬ 
de 4 Zeilen eingeben: 

C055:0 N 400:0F 

plottet das Ll-Kästchen (links oben). 
C055:0 N 400:F0 

plottet das Hl-Kästchen (links unten). 
C054:0 N 400:0F 

plottet das Lr-Kästchen (rechts oben). 
C054;0 N 400:F0 

plottet das Hr-Kästchen (rechts unten). 

Bei der Double Lores gibt es mithin 80 
statt 40 Kästchen pro Zeile. Da indessen 
weder im Applesoft-Interpreter noch im 
Monitor spezielle Double-Lores-Routinen 
enthalten sind, muß das Aktivieren der 
oberen respektive unteren Bildschirmhälf¬ 
te durch Softswitch-Befehle des Apple¬ 
soft- bzw. Assembler-Programms vorge¬ 
nommen werden. Die Assembler-Befehle 

LDA$C050 (Grafik) 

LDA $C056 (Lores) 


LDA $C052 (No Mix, Full Screen) 

STA $C001 (80-Store) 

STA $C00D (80-Column) 

LDA$C05E (Doubleon) 

schalten auf den Double-Lores-Modus 
um. Danach kann man nach Belieben mit 


LDA $C055 (Page 2 = oben) 

LDA $C054 (Page 1 = unten) 

zwischen den zwei Bildschirmhälften 
$0400-$07FF umschalten. Der aufmerksa¬ 
me Leser wird jetzt sicher einwenden, daß 
in den Apple-Handbüchern die Page 1 als 
der Bereich $0400-$07FF sowie die Page 
2 als der Bereich $0800-$0BFF beschrie¬ 
ben wird. Dies trifft auch zu und ist weiter¬ 
hin gültig für die einfache Lores-Grafik. Bei 
der doppelten Lores-Grafik erhalten die 
Softswitches $C055 und $C054 jedoch 
vorübergehend die Funktion des Um¬ 
schaltens zwischen unterem und oberem 
$0400-$07FF-Bereich, wobei $0800- 
$0BFF unberührt bleibt. Dies setzt jedoch 
voraus, das vorher das ganze Sortiment 
der obigen Softswitches, insbesondere 
$C001, $C00D und $C05E geschaltet 
worden sind. Man beachte im übrigen den 
Unterschied zwischen LDA (= PEEK) und 
STA (= POKE), der unbedingt eingehalten 
werden sollte. 

Um die doppelte Lores-Grafik abzuschal¬ 
ten, sind folgende Softswitches erforder¬ 
lich: 

LDA $C054 (Page 1) 

LDA $C051 (Text) 

LDA $C05F (Double off) 

STA $C000 (40-Store) 

STA $C00C (40-Column) 

die letzten beiden Softswitches dürfen 
nicht aktiviert werden, wenn vor dem Ein¬ 
schalten von Double Lores die 80-Zei- 
chenkarte bereits eingeschaltet war, da 

- ^ 
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Neu im Lieferorogramm 

Problemlos mit Computern in aller Welt 

kommunizierenl Mit dem Akustikkoppler ak300. 

Daten, Texte und Programme-per Telefon! VonDatenbanken. 
Großrechnern und Mallboxen Zwischen Filialen, Außendienst 
und Zentrale, den Mitgliedern eines Clubs oder ganz privat ^ 



Akustikkoppler AK 300 5^8,00 

Technische Daten: 300 baud, Vollduptex, Originale und 
Answer. Batterie- u Netzzbetrieb (Option), Variable Gummi¬ 
muffen für alle Hörer, FTZ-Nr. 18.13.1897.00.. von der 
Post zugelassen. SebOhrcn- und anmeldefrell 
Zum Anschluß an den Akustikkoppler benötigen Sie die Super 
Serielle Interface Karte . Best -Nr A2B0044 ... 396.00 

Access// Terminal Emulation Software 225,00 

Access// ist das neue Termlival Emulation Programm von 
APPLE Computer für die Apple//-Familie 

sie verwandeln Ihren Apple// in ein Terminal und können somit Daten von einem 
Hosl-Rechner oder Elektronik-Mell-System empfangen und versenden. Access// 
bietet weiterhin die Möglichkeit des Abspelchems der zu empfangenden Infor- 
metionen auf einer Diskette oder des Versendenvon Dateien, die auf einer Diskette 
gespeichert sind. Access// basiert auf dem Betriebssystem ProOOS (engl Version) 

jane... das integrierte Softvarepaket 595,00 

jane ist ein integriertes Sofwarepaket (Kalkulatlons- Text- 
verarbeltungs-und Datei Verwaltungsprogramm) mit der Maus 
Alle Tastaturkommandos wurden durch einfache, leicht zu 
verstehende Bilder ersetzt, über die man dem Computer sagt, 
was er tun soll. Die Integrierte Hilfe-Funktion von jaae er¬ 
läutert alle Steuersymbole des Systems. Damit kann der An¬ 
fänger das Programm bedienen, ohne umfangreiche Hand¬ 
bücher zu lesen (ohne Maus bitte separat bestellen.) 


Apple/Ze-Maus mit Mouse-Paint . 425,00 

Apple//c-Maus mit Mouse-Paint . 265,00 


ApploWorkS IniegrlenesSofwarepaket 695,00 

AppleWorks (AW) kombiniert die Textverarbeltung, eine 
Datenbank und ein Rechenblatt ln einem Integrierten Paket. 
AppleWorks Ist anwenderfreundlich gestaltet Ein "Schreib¬ 
tischmanager" koordiniert die einzelnen Funktionen. Man 
kann gleichzeitig ln verschiedenen Dokumenten arbeiten und 
in sekundenschnelle Informationen aus einem Dokument aus- 
schnelden und ln ein anderes elnsetzen. 

(Die deutsche Version Ist ca. Anfang Oktober verfügbar.) 
Deutsche Programme 

ProDOS-Editor 1.0. 98.00 

ZellenorientlBrter Editor für den APPLESOFT-Programmierer unter ProDOS. Mit der 
Diskette wird eine ausführliche deutsche Bedlenungsaileltungmitgeltefert. 

Input 2.0. 98.00 

Bildschirm Mesken Editor unter DOS 3.3 und ProDOS. Elnbindbr in Applesoft-(auch 
kompillierte)und Assemblerpro^amme. Diskette mit deutscher Bedlenungsmleltung 

MMU 2.0. 98,00 

Memory Mmgement Utilities für den Apple//e mit exl. 80 Z/Z-Karte. Uber 25 
Programme erschliessenneue Anwendungsmöglichkeiten, 

Softbreaker. -48.00 

Programm zur Herstellungvon Sicherungskopien Dieses Programm gestaltet das 
softwaremößige Unterbrechen, Speichern, Laden und Neustarien von geschützten 
Progrvnmen Für Applo//e mit &4:S-Erweiterung inci dt Bedienungstnleilung 

Für Obige Programme steht eine ausführliche Beschreibung 
zur Verfügung Bitte mit DINA5-Rückumschlag anfordern 

A.C.E. Applesoft Command Editor 149,00 

ermögllchl einTdcto Editieren einer BASIC-Zelle und bietet eine Menge Utllilles: 
ermittelt ob eine vaHable existiert, Auto Line Nvnbering, Monitor Kommandos 
können direkt von BASIC eufgerufen werden und Keyboard Macros können definiert 
werden u.a m. 


Syalemhttndbflch&f-jfuenqliach: 

APPLESOFT Tutorial Manual (A//e). 37,00 

APPLESOFT Reference Manual Vo1.l&2 (A//e). 69,50 

APPLE//e Reference Manual.62,75 

PASCAL Operating System Reference Manual .. 45.00 
Satz=Language- und Operating Sys.Ref.Manual. 75,00 


Software - Entwicklungshilfen 

Diese neue Serie für Softwareentwickler (-Workbench) 
werden als Einzelblattsammlung im Format DIN A 5 geliefert 
Der passende Ordner bietet Platz für bis zu 3 Handbücher. 

DOS Programmers Toolkit (incl. Diskette).250.00 

EntMlt: 6502 Assembler Toolkit mit vielen Hilfsprogrammen wie EDASM (Editor und 
Assembler), BU6 BYTER (Programm zum Austesten von Assemblerprogrammen), 
RLOAD (Assemblerprogramme in Verbindung mit BASIC-Programmen) 
ne APPLtSCFTPrMritwiie« TpoaiientMIteine Sammlungvon Hilfsroullnenfik- 
alledie in APPLESOFT programmieren. 

ProDOS Technical Reference Manual (Incl.Dlsk) 85,00 

EnthilLProOOS, das neue BetHebssyslem von APPLE, sowie den EXERCISER (Inter¬ 
aktives Programm zum Austestenvon ProDOS durch Aufrufe von der Tastatir her). 
Das ProDOS Techn. Ref Manual benutzt man am effektivsten In Verbindung mit dem„ 

ProDOS Assembler Tools ( fnet. Diskette).123.00 

Enthilt iltesum effektiv unter ProDOS in Assembler zu programmieren. 

Beschrelbuig und Programme wie 6502 Assembler Tool Kit unter DOS 3.3. 

APPLE WORKBENCH Ordner (fOr ca. 3 Manuals). 32.00 
Für 3-fach Lochung nach amerikanischer Norm. 

Larffihverkauf. Vorfühnm^ und fachgerechte Beratung 

6900 Heidelberg I Breslauerstr. 29 Tel.06221/7ai500 
Geschäftszeiten: Mo. - Fr, 9-13 + M - 18 Sa 9 -13 Uhr 
Versandanschrift: 6900 Heidelberg 1 Dammweg 2 _ 
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sonst die ROM-Routinen der 80-Zeichen- 
karte „durchdrehen“. 

Wenn Sie einen Apple Ile mit 80-Zeichen- 
karte besitzen und bei den obigen Experi¬ 
menten keine Double Lores sahen, kann 
dies folgende hardware-technische Grün¬ 
de haben: 

- Sie besitzen keinen Apple Ile mit Platine 
Version B. Dann ist weder doppelte Lores- 
noch doppelte Hires-Grafik möglich. Aller¬ 
dings sollen angeblich in Westdeutschland 
nur B-Version-Apples ausgeliefert worden 
sein. 

- Sie haben die Brücke (Jumper), die mit 
der 80-Zeichenkarte mitgeliefert wurde, 
nicht auf die entsprechenden Pins ge¬ 
steckt (siehe Apple-Ergänzungsblatt zur 
Bedienungsanleitung). Bei neueren 80- 
Zeichenkarten soll dies jedoch angeblich 
nicht mehr erforderlich sein. 

- Sie haben eine Nachbau-80-Zeichen- 
karte, die nicht über die entsprechenden 
technischen Möglichkeiten verfügt. 

4. Hinweise zu den Programmen 

1. Doubie-Lores-Softswitch-Demo 

Dieses Demo veranschaulicht, welche 
Softswitches in Applesoft aktiviert und 
desaktiviert werden müssen, um Double 
Lores ein- und abschalten zu können. Es 
empfiehlt sich, die 80-Zeichenkarte vor 
Double Lores mit 
PRINT CHR$ (21) 
oder mit 
ESC CtrI-Q 

abzustellen, weil man dann eine bessere 
Kontrolle über die Softswitches hat, denn 
die ROM-Routinen betätigen einen Teil 
der Softswitches, die für Double Lores 
benötigt werden, so daß Speicherkonflikte 
auftreten können. Beispielsweise könnte 
aus Versehen der Bereich $0800-$0BFF 
als Textspeicher aktiviert werden, womit 
das dort befindliche Applesoft-Programm 
zerstört würde. 

2. Double-Lores-Applesoft-Demo 

Dieses leichtverständliche Demo zeichnet 
zunächst vertikale Linien in wechselnden 
Farben (Programmzeilen 37 - 55) und 
plottet dann eine schräge Linie (Pro¬ 
grammzeilen 61 - 82). Man beachte, daß 
man bei schrägen sowie auch bei horizon¬ 
talen Linien permanent zwischen Page 1 
und Page 2 alternieren muß, da die ROM- 
Plot-Routinen bekanntlich nicht auf die 
obere Bildschirmhälfte umschalten 
können. 


3. DOUBLE.LORES (Assembler) 

Dieses Assembler-Demo dient zur Veran¬ 
schaulichung der erforderlichen Softswit¬ 
ches sowie zur Erläuterung der Lores-Mo- 
nitor-Routinen. Es zeichnet übrigens eine 
Art „Fußballtor“. 


4. AMPER.DOUBLE.LORES (Applesoft 
und Assembler) 

Wir erinnern uns, daß eine Double-Lores- 
Zeile zwar 80 Kästchen - numeriert von 0- 
79 - umfaßt, jedoch wegen des in obere 
und untere Flälfte aufgeteilten Bildschirms 
nach Aktivierung der jeweiligen Page- 
Schalter immer nur Kästchen im Bereich 
0-39 geplottet werden können. Dies ist 
hinderlich für die Programmierung, insbe¬ 
sondere wenn schräge und horizontale Li¬ 
nien sowie Kurven geplottet werden kön¬ 
nen. Besser wäre es, wenn man einen 
Plot-Befehl in der Art 
PLOT X, Y 

geben könnte, wobei X Werte im Bereich 
0-79 annehmen würde. Dies ist jedoch 
wegen der unzureichenden ROM-Routi¬ 
nen nicht direkt möglich. Deshalb enthält 
die Ampersand-Utility AMPER.DOUBLE¬ 
.LORES eine Konvertierungsroutine, die 
X-Werte bis 79 zuläßt. Im einzelnen wur¬ 
den folgende Befehle implementiert, die 
nach BRUN AMPER.DOUBLE.LORES 
über die Tastatur oder aus einem Apple¬ 
soft-Programm heraus aufgerufen werden 
können: 

&GR 

schaltet auf Double-Lores-Modus um. Da¬ 
mit entfällt die lästige „Softswitcherei“. 

&TEXT 

schaltet wieder auf 40-Zeichen-Textmo- 
dus zurück. Vor Anwendung der Utility 
AMPER.DOUBLE.LORES sollte man da¬ 
her die 80-Zeichenkarte bereits abgestellt 
haben. 

& PLOT X, Y 

plottet ein Double-Lores-Kästchen in der 
zuvor durch COLOR = F gewählten Farbe, 
wobei X den Bereich 0-79 und Y den 
Bereich 0-47 umfassen kann. Werte au¬ 
ßerhalb dieses Bereichs werden mit einem 
Piepston „quittiert“. 

An dieser Stelle soll nicht näher auf den 
Ampersand-Befehl (&) eingegangen wer¬ 
den, doch soll zumindest der Amper-Plot 
kurz erläutert werden: 

Der Textpointer ist der Zeiger, der auf die 
jeweils gerade zu bearbeitende Stelle des 
Applesoft-Programms zeigt. 


10 & PLOT X, Y 

würde im Applesoft-Programmspeicher 
hexadezimal folgendermaßen aussehen: 

1. $AF = Token für & 

2. $8D = Token für PLOT 

3. $58 = X 

4. $20 = , 

5. $59 = Y 

a) Wenn der Applesoft-tnterpreter auf das 
Token für & stößt, lädt er das nachfolgen¬ 
de Byte, also in unserem Fall $8D, in den 
Akkumulator und springt nach $03F5, wo 
seinerseits durch AMPER.DOUBLE.LO¬ 
RES ein Sprung nach $0310 (siehe Zeile 
62 des Assembler-Listings) installiert 
wurde. 

b) Zeilen 62-68 prüfen, welches Token 
vorliegt. Im Falle von PLOT erfolgt dann 
ein Sprung zur Zeile 105 ($034F). 

c) Der Textpointer wird nun in Zeile 105 
durch die Routine CFIRGET um 1 erhöht, 
womit gleichzeitig der Akkumulator mit 
dem Byte $58 für X geladen wird. 

d) Dies ist die Voraussetzung für die Routi¬ 
ne GETBYT, welche den Wert der Varia¬ 
blen X ermittelt und dann im X-Register 
des 6502-Prozessors hinterläßt. Dieser 
Wert wird zunächst zwischengespeichert 
(Zeiie 107). 

e) Danach wird in Zeile 108 durch die 
Routine CFIKCOM (Check Comma) das 
Komma $20 übersprungen, wonach 
CFIKCOM automatisch das nachfolgende 
Byte, also $59 für Y in den Akkumulator 
überträgt. 

f) Nunmehr wird durch erneutes JSR GET¬ 
BYT in Zeile 109 der Y-Wert ermittelt, der 
ebenfalls zunächst zwischengespeichert 
wird. 

g) Jetzt wird es interessant (Zeile 114- 
119). Der Akkumulator wird mit dem X- 
Wert, der im Bereich 0-79 liegen darf, 
geiaden und durch den Befehl LSR (Logi¬ 
cal Shift Right) durch 2 geteilt, wodurch 
gleichzeitig Bit 0 in das Übertragsflag 
„Carry“ übertragen wird. Nehmen wir an, 
der X-Wert sei dezimal 79 = hexadezimal 
$4F = binär %01001111, dann gilt: 

76543210 = Bit-Nummern 0-7 
01001111 - 79 vor LSR 
00100111 = 39 nach LSR (Carry = 1) 
Wenn Bit 0 vor LSR eine 1 enthielt, dann 
ist der X-Wert ungerade (BCS), andern¬ 
falls gerade (BCC). Wenn er ungerade ist, 
wird Page 1 aktiviert, andernfalls Page 2. 
Danach - d.h. nach der Teilung durch 2 
durch LSR - kann die normale Monitor- 
PLOT-Routine $F800 (Zeile 133) aufgeru¬ 
fen werden. 
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h) Mit der Routine DATA (Zeile 141), die 
den Textpointer zum nächsten Statement 
vorrückt, und der Aktivierung von Page 1 
(sicher ist sicher!) kehrt die Ampersand- 
Utility in das Applesoft-Programm zurück. 

Das Appiesoft-Demo AMPER.DOUBLE- 
.LORES.DEMO zeichnet übrigens eine 
Kugel, die durch Änderung der Variablen R 
für Radius sowie Fl und F2 modifiziert 
werden kann. 


5. Schlußbemerkung 

Double Lores ist eine nützliche Erweite¬ 
rung der Grafikfähigkeiten des Apple Ile/ 


llc und empfiehlt sich stets dann, wenn die 
einfache Lores-Grafik zu grob und die ein¬ 
fache Hires-Grafik zu fein sein sollte, da 
die Double Lores ein Mittelding zwischen 
beiden normalen Grafik-Modi einnimmt. 
Mit der Utility AMPER.DOUBLE.LORES 
sind bei weitem noch nicht alle Möglich¬ 
keiten erschöpft. Beispielsweise fehlen 
noch folgende Befehle 
& SCRN X, Y 
&HLINX1,X2 ATY 
&VLIN Y1, Y2 ATX 
& PLOT XI, Y1 TO X2, Y2 
Vielleicht entwickelt ein Leser dieser Zeit¬ 
schrift diese zusätzlichen Ampersand-Be¬ 
fehle. Im nächsten Heft von „Peeker“ wird 
dann über Double Hires berichtet. 


2 

3 

4 

5 

6 
? 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 


ORG $300 
. double.LORES 


* von U.Stiehl 1984 


* Waagrechte X-Achse 

ä!f 0 (links) bis 39 (rechts) 

# 

* Senkrechte Y-Achse: 

* 0 (oben) bis 39 (unten) MIX 
« 0 (oben) bis 47 (unten) FULL 


* H2=X2; V2=Y2 Linien-Endpunkte 

* 

H2 EQU $2C :X2 

V2 EQU $2D :Y2 


* Mixed-Lores- und Text-Modus 

* 

SETGR EQU $PB40 ;GR-mixed 

* 

INIT EQU $FB39 ; Texliaodus 


PAGEl 

PAGE2 


EQU $0054 
EQU $0055 


* SETOOL: Farbe festlegen 
Golor-Nr. (0-15) in A-Register 

* 

SETOOL EQU $F864 
# 

* SCRN: Farbe eines Punktes find-en 

* X-Abschnitt in Y-Register 

* Y-Abschnitt in A-Register 

* Danach Farbe in A-Register 


* 

SCRN EQU $F817 


* CLRSCR: Zeilen 0-47 löschen 

* CLRTOP: Zeilen 0-39 löschen 


* 

CLRSCR EQU $F832 
CLRTOP EQU $F836 


;0-47 

;0-39 
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von U.SUetil. 1984 216 Sollen. Hüthlg-Verlsg 
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von U SLieht, 1984, 227 Sellon. Hüthig Verleg 

Das neue jetzt vorliegende Buch enthält alle Monitor und 
Applesoft Interpreter Routinen für AM/Me/Mc (40 Z./Z.) wie 
eine Einführung in die 6502 Assembler Programmierung 


Begleitdiskette zu APPLE Assembler.28,00 

Programmierung des 6502 44,00 

von Rodnay Zsks, 1984, 2BB Selten. SYBEX-Verlag 


Sehr gut verständliche Einführung ln die Assembler-Progra¬ 
mmierung mit dem Mikroprozessor 6502, Bestens geeignet 
für Anfänger und Fortgeschrittene 

6502 Anwendungen 38,00 

von Rodnay Zoks, 1983, 268 Seilen.SYBEX-Verlag 

Das Eingabe/Ausgabe-Buch für Ihren 6502 Mikroprozessor. 
Viele Anwendungsbetspiele helfen Ihnen, das Erlernte ln die 
Praxis umzusetzen 

Fortgeschrittene 

6502 Programmierung 42,00 

von Rodnay Itks, 1984, 288 SeiUn SYBEX-Vorlig 

Lernen Sie wie man schwierige Probleme mit dem 6502 löst 
Ein muß für jeden fortgeschrittenen Apple-User 

6502/65C02 Maschinensprache 49,00 

von C. Persson, 1993, 250 Salten VerlagHelnz Heise 

Diese Buch eines deutschen Autors ist eine intensive, praxls 
gerechte Einführung In die Programmierung des 6502. Als 
erstes Buch auf dem dt Markt behandelt es auch den 65C02. 

APPLE Maschinensprache 49,00 

von D. Inman/K Inman, 300 Selten, 1984 le-wl Verlag 

Eine Schr1tt-für-Schrttt-E1nwe1sung ln die professionellere 
Entwicklung von Maschinenprogrammen mit APPLE SYSTEM 
MONITOR und APPLE MINI-ASSEMBLER 

Alle Bücher sofort ab Lager lieferbar. Bestellen Sie 
per NN oder besuchen Sie uns. Wir führen eine große 
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133 

äit Senkrechte 

Linie am linken 





134 

¥ LoreS“ 

Bildschirmrand 






135 

äff 




036F 

AD 

55 

00 

136 


LDA 

PAGE2 


0372 

AO 

00 


137 


LDY 

#0 

;x 

0374 

A9 

2F 


138 


LDA 

#47 

:Y2 

0376 

85 

2D 


139 


STA 

V2 


0378 

A9 

02 


140 


LDA 

#2 

;Y1 

037A 

20 

28 

F8 

141 


JSR 

VLINE 






142 





037D 

AD 

54 

00 

143 


LDA 

PAGEl 


0380 

AO 

01 


144 


LDY 

#1 

;X 

0382 

A9 

2F 


145 


LDA 

#47 

;Y2 

0384 

85 

2D 


146 


STA 

V2 


0386 

A9 

02 


147 


LDA 

#2 

;Y1 

0388 

20 

28 

F8 

148 


JSR 

VLINE 






149 





038B: 

: 2C 

10 

00 

150 

KEYl 

BIT 

$0010 

;STROBE 

038E: 

: AD 

00 

00 

151 

KEY2 

LDA 

$0000 

;KEYBD 

0391: 

: 10 

FB 


152 


BPL 

KEY2 


0393: 

: 2C 

10 

00 

153 


BIT 

$0010 

;STROBE 

0396: 

: AD 

54 

00 

154 


LDA 

PAGEl 


0399: 

: 8D 

00 

00 

155 


STA 

$0000 

;40ST0RE 

039C: 

: 8D 

OC 

00 

156 


STA 

$0000 

;40C0L 

039F: 

: AD 

5F 

00 

157 


LDA 

$C05F 

;40AN3 

03A2: 

: 40 

39 

FB 

158 


JMP 

INIT 


165 bytes 











1 


ORG 

$300 






2 

* 








3 

* AMPER. 1 

DOUBLE.LORES 






4 

äff - 








5 

* 








6 

* von U. 

Stiehl 1984 






7 

* 








8 

* Hex-Werte für Token 






9 

* 








10 

GRTOK 

EQU 

$88 






11 

TEXTTOK 

EQU 

$89 






12 

PLOTTOK 

EQU 

$8D 






13 

* 








14 

* Zwischenspeicher für X 

und Y 





15 









16 

XACHSE 

EQU 

$00FE 






17 

YACHSE 

EQU 

$00FF 






18 

* 








19 

CLRSOR 

EQU 

$F832 






20 

PLOT 

EQU 

$F800 






21 

BELL 

EQU 

$FBDD 






22 

* 








23 

* CHRGET 

erhöht Textpointer um 1. 





24 

* 








25 

* DATA erhöht 

Textpointer bis 





26 

* EOL oder " 

- n 






27 

* 








28 

* GETBYT 

lädt 

Zahl im Bereich 





29 

* 0-255 

von 

Textpointer- 

Stelle 





30 

* in X-Register. Vor JSR 

GETBYT 





31 

* muß A-Register Textpointer- 





32 

* Byte 

enthalten. 






33 

# 








34 

* OHKCOM prüft, ob Textpointer- 





35 

* Byte 

enthält. Wenn 

ja. 





36 

äff wird Textpointer um 1 

erhöht 





37 

* und A-Register mit nächsten 





38 

* Textpointer-Byte geladen. 





39 

äff 








40 

CHRGET 

EQU 

$00B1 






41 

AMPERVEK 

EQU 

$03F5 






42 

DATA 

EQU 

$D995 






43 

GETBYT 

EQU 

$E6Fa 

;X 





44 

OHKCOM 

EQU 

$DEBE 

■ II tt 





45 

äff 








46 

PAGEl 

EQU 

$0054 






47 

PAGE2 

EQU 

$0055 






48 

ä|t 








49 

äit Ampersand-Vektor setzen 






50 

* 




0300: 

A9 

40 


51 

START 

LDA 

#$4C 

;JMP 

0302: 

8D 

F5 

03 

52 


STA 

AMPERVEK 


0305: 

A9 

10 


53 


LDA 

#<AMPER 


0307: 

8D 

F6 

03 

54 


STA 

AMPERVEK+1 


030A: 

A9 

03 


55 


LDA 

#>AMPER 







46 

äff 

PLOT: Punkt plotten 





47 

äff 

X-Abschnitt 

in Y-Register 





48 

äff 

Y-Abschnitt 

in A-Register 





49 

äff 







50 

PLOT EQU 

$F800 





51 








52 

äff 

HLINE; Horizontale Linie plotten 





53 

äff 

Xl-links 

in Y-Register 





54 

äff 

X2-rechts 

in H2 





55 

äff 

Y-Abschnitt 

in A-Register 





56 

äff 







57 

HLINE EQU 

$F819 





58 

äff- 







59 

äff 

VLINE: Vertikale Linie plotten 





60 

äff 

X-Abschnitt 

in Y-Register 





61 

äff 

Yl-oben 

in A-Register 





62 

äff 

Y2-unten 

in V2 





63 

äff 







64 

VLINE EQU 

$F828 





65 

äff 







66 








67 

äff 







68 

äff 

Demo 






69 

* 







70 

äff 



0300 

AD 

50 

00 

71 


LDA 

$0050 ;GRAFIK 

0303 

AD 

56 

00 

72 


LDA 

$0056 ;LORES 

0306 

AD 

52 

00 

73 


LDA 

$0052 ;NOMIX 

0309 

8D 

01 

00 

74 


STA 

$0001 ;80ST0RE 

0300 

8D 

OD 

00 

75 


STA 

$C00D :80C0L 

030F 

AD 

5E 

00 

76 


LDA 

$C05E :80AN3 





77 

t 



0312 

AD 

54 

00 

78 


LDA 

PAGEl 

0315 

20 

32 

F8 

79 


JSR 

CLRSOR 

0318 

AD 

55 

CO 

80 


LDA 

PAGE2 

03IB 

20 

32 

F8 

81 


JSR 

CLRSOR 





82 

# 



031E 

: A9 

OA 


83 


LDA 

#10 

0320 

: 20 

64 

F8 

84 


JSR 

SETCOL 





85 

äff 







86 

äfc 

Punkt in der Mitte der 





87 

äff 

untersten Zeile plotten 





88 

äff 



0323 

AD 

55 

00 

89 


LDA 

PAGE2 

0326 

AO 

13 


90 


LDY 

#19 ;X 

0328 

A9 

2F 


91 


LDA 

#47 ;Y 

032A 

20 

00 

F8 

92 


JSR 

PLOT 





93 

äff 



032D 

: AD 

54 

00 

94 


LDA 

PAGEl 

0330 

: AO 

14 


95 


LDY 

#20 ;X 

0332 

: A9 

2F 


96 


LDA 

#47 :Y 

0334 

: 20 

00 

F8 

97 


JSR 

PLOT 





98 

äff 







99 

äff 

Waagrechte Linie am oberen 





100 

äff 

Lores-Bildschirmrand 





101 

äff 



0337 

AD 

55 

00 

102 


LDA 

PAGE2 

033A 

AO 

00 


103 


LDY 

#0 ;X1 

0330 

A9 

27 


104 


LDA 

#39 ;X2 

033E 

85 

20 


105 


STA 

H2 

0340 

A9 

00 


106 


LDA 

#0 ;Y 

0342 

20 

19 

F8 

107 


JSR 

HLINE 





108 

äff 



0345 

: AD 

54 

00 

109 


LDA 

PAGEl 

0348 

: AO 

00 


110 


LDY 

#0 ;X1 

034A 

: A9 

27 


111 


LDA 

#39 ;X2 

0340 

: 85 

20 


112 


STA 

H2 

034E 

: A9 

01 


113 


LDA 

#1 ;Y 

0350: 

: 20 

19 

F8 

114 


JSR 

HLINE 





115 








116 

äff 

Senkrechte Linie am rechten 





117 

äff 

Lores-Bildschirmrand 





118 

äff 



0353 

AD 

55 

CO 

119 


LDA 

PAGE2 

0356 

AO 

26 


120 


LDY 

#38 ;X 

0358 

A9 

2F 


121 


LDA 

#47 ;Y2 

035A 

85 

2D 


122 


STA 

V2 

0350 

A9 

02 


123 


LDA 

#2 ;Y1 

035E 

20 

28 

F8 

124 


JSR 

VLINE 





125 

* 



0361: 

: AD 

54 

00 

126 


LDA 

PAGEl 

0364: 

: AO 

27 


127 


LDY 

#39 ;X 

0366: 

: A9 

2F 


128 


LDA 

#47 :Y2 

0368: 

: 85 

2D 


129 


STA 

V2 

036A: 

: A9 

02 


130 


LDA 

#2 ;Y1 1 

0360: 

20 

28 

F8 

131 


JSR 

VLINE 





132 

• 




38 






















^qRApik.^^ 


030C; 

8D 

F7 

03 

56 

STA 

AMPERVEK+2 

030F: 

60 



57 

RTS 






58 

■ 






59 

* A-Register enthält bereits Token 





60 

* nach & —> 

&GR, &TEXT, &PL0T 





61 

# 


0310: 

09 

88 


62 

AMPER CMP 

#GRTOK 

0312: 

FO 

OB 


63 

BEQ 

AMPGR 

0314: 

09 

89 


64 

CMP 

#TEXTTOK 

0316: 

FO 

28 


65 

BEQ 

AMPTEXT 

0318: 

09 

8D 


66 

CMP 

#PLOTTOK 

031A: 

FO 

33 


67 

BEQ 

AMPPLOT 

0310: 

40 

7D 

03 

68 

JMP 

ERROR 





69 

*■ 






70 

* & GR 






71 

* 






72 

* 






73 

* Auf Double.Lores umschalten 





74 

* und Bildschirm loschen 





75 

■ 


031F: 

AD 

50 

00 

76 

AMPGR LDA 

$0050 ;GRAFIK 

0322: 

AD 

56 

00 

77 

LDA 

$0056 ;LORES 

0325: 

AD 

52 

00 

78 

LDA 

$0052 ;NOMIX 

0328: 

8D 

01 

00 

79 

STA 

$0001 ;80ST0RE 

032B: 

8D 

OD 

00 

80 

STA 

$COOD ;80C0L 

032E: 

AD 

5E 

00 

81 

LDA 

$C05E ;80AN3 

0331: 

AD 

54 

00 

82 

LDA 

PAGEl 

0334- 

20 

32 

FS 

83 

JSR 

CLRSCR 

0337 

AD 

55 

CO 

84 

LDA 

PAGE2 

033A 

20 

32 

F8 

85 

JSR 

CLRSCR 

033D 

40 

80 

03 

86 

JMP 

EXIT 





87 

« 






88 

* & TEXT 






89 

' '= 






90 

4 






91 

• Auf Text.Modus zurückschalten 





92 

* 


0340; 

8D 

00 

00 

93 

AMPTEXT STA 

$0000 :40STORE 

0343; 

8D 

00 

00 

94 

STA 

$0000 ;40COL 

0346: 

AD 

5F 

00 

95 

LDA 

$C05F :40AN5 

0349: 

AD 

51 

00 

96 

LDA 

$0051 :TEXT 

0340: 

40 

80 

03 

97 

JMP 

EXIT 





98 

* 






99 

* & PLOT X. Y 






100 

* - 






101 

• 






102 

* X-Achse in ' 

Sf-Register (0-79) 





103 

♦ Y-Achse in . 

A-Register (0-47) 





104 

* 


034F 

20 

Bl 

00 

105 

AMPPLOT JSR 

CHRGET 

0352 

20 

F8 

E6 

106 

JSR 

GETBYT iX->X-ReE, 

0355 

86 

FE 


107 

STX 

XACHSE 

0357 

20 

BE 

DE 

108 

JSR 

CHKCOM ;Komma 

035A 

20 

F8 

E6 

109 

JSR 

GETBYT ;Y->X-Reg, 

035D 

86 

FF 


110 

STX 

YACHSE 





111 

* 






112 

* Page 1 oder 

2? 





113 

• 


035F 

A5 

FE 


114 

LDA 

XACHSE 

0361 

4A 



115 

LSR 

;A=A/2 

0362 

90 

05 


116 

BCC 

PAGER2 

0364 

AO 

54 

CO 

117 

PAGER1 LDY 

PAGEl 

0367 

BO 

03 


118 

BCS 

PARAMS 

0369 

AO 

55 

CO 

119 

PAGER2 LDY 

PAGE2 





120 

* 






121 

* Wertebereich okay? 





122 

* 


0360 

A8 



123 

PARAMS TAY 


036D 

00 

28 


124 

CPY 

#40 

036F 

BO 

00 


125 

BCS 

ERROR 





126 

* 


0371 

A5 

FF 


127 

LDA 

YACHSE ;¥->A-RöE. 

0373 

09 

30 


128 

CMP 

#48 

0375 

BO 

06 


129 

BCS 

ERROR 





130 

* 






131 

Flotten und 

zurück zu Applesoft 





132 



0377 

: 20 

00 

F8 

133 

JSR 

PLOT 

037A 

: 40 

80 

03 

134 

JMP 

EXIT 





135 

* 






136 

* Unzulässige 

Parameter 





137 

* 


037D 

: 20 

DD 

FB 

138 

ERROR JSR 

BELL 





139 

* 


0380 

: AD 

54 

00 

140 

EXIT LDA 

PAGEl 

0383 

: 40 

95 

D9 

141 

JMP 

DATA 

134 bytes 






Double-Lores-Softswitch-Demo 

10 P - PEEK (49232): 

REM GR 

11 POKE 49153,0: REM 

80-ST0RE 

12 POKE 49165,0: REM 

80-C0LUMN 

13 P = PEEK (49234): 

REM NO MIX 

14 P = PEEK (49246): 

REM DOUBLE ON 

15 P = PEEK (49237): 

CALL 63538: REM Clear Page2 

16 P = PEEK (49236): 

CALL 63538: REM Clear Pagel 

17 P - PEEK (49237): 

POKE 1024,15: GET X$: REM Page2 = 

linker Punkt "oben" 

18 P = PEEK (49236): 

POKE 1024,15: GET X$: REM Pagel = 

rechter Punkt "unten" 

19 TEXT : PRINT CHR$ (4)"PR#3": PRINT CHR$ (4)"PR#3": REM 

Softswitches normal: 2 * PR#3 

Double-Lores-Applesoft-Demo 

10 PRINT "DOUBLE.LORES IN APPLESOFT" 

13 P = PEEK (49232): 

REM GR 

16 POKE 49153,0: REM 80STORE 

19 POKE 49165,0: REM 80C0L 

22 P = PEEK (49234) 

REM NOMIX 

25 P = PEEK (49246) 

REM AN3 

28 P - PEEK (49237) 

CALL 63538: REM CLRP2 

31 P = PEEK (49236) 

CALL 63538: REM CLRPl 

34 P = PEEK (49152) 

ON P < 128 GOTO 34:P = PEEK (49168): 

REM KEY 


37 FOR 0 = 15 TO 0 STEP - 1: C0L0R= 0 

40 FOR X = 0 TO 36 STEP 4 

43 P = PEEK (49237) 

: REM PAGE2 

46 VLIN 0,47 AT X 


49 P - PEEK (49236); 

: REM PAGEl 

52 VLIN 0,47 AT X + 

L 

55 NEXT X,C 


58 COLOR= 10 


61 X - 0:Y = 0 


64 P - PEEK (49237) 

: REM PAGE2 

67 PLOT X,Y 


70 Y = Y + 1 


73 P = PEEK (49236) 

: REM PAGEl 

76 PLOT X,Y 


79X-X+1:Y=Y+ 

1 

82 IF Y < 48 GOTO 64 

85 P = PEEK (49152) 

: ON P < 128 GOTO 85:P = PEEK (49168)3 

REM KEY 


88 POKE 49152,0: REM 800FF 

91 POKE 49164,0: REM 40C0L 

94 P - PEEK (49236) 

: REM PAGEl 

97 TEXT 



Amper,Double.Lores.Demo 

10 PRINT CHR$ (21); PRINT CHR$ (4)"BRUN 
AMPER.DOUBLE.LORES" 

15 REM Amper.Double.Lores.Demo zeichnet eine Kugel 
20 TEXT : & GR 

25 XE = 79:YE = 47;A = XE / 2:B = YE / 2;F1 = 7:F2 = 23 
30 FOR C = 1 TO 15: C0L0R= C:R - C + C 
35 FOR X = A - R TO A + R: IF X < 0 OR X > XE GOTO 60 

40 H = R * R - (X - A) * (X - A): IF H < =0 GOTO 60 

45 Y1 = B + SQR (H) - F1:Y2 = B - SQR (H) + Fl 
0 AND Y1 < = YE THEN & PLOT X,Y1 

0 AND Y2 < = YE THEN & PLOT X,Y2 


50 

55 

60 

65 

70 

75 


IF Y1 > 
IF Y2 > 
NEXT X 
NEXT C 
GET X$ 

& TEXT 



39 



















Hires-Grafik-Dump 

für 

Epsondrucker 



Mit Hilfe des Applesoft-Programms Hl- 
RES und des Maschinen-Programms 
PRINTHIRES ist es möglich, die hoch¬ 
auflösende Grafik des Apple auf einem 
Epson Drucker, der für die Ausgabe 
der Grafik vorgesehen ist (MX-80, MX- 
82, MX-100 Typ 3 sowie RX-80 FX-80 
etc.), auszugeben. Durch leichte Modi¬ 
fikationen der Programme ist es auch 
mögiich, sie an einen anderen Drucker 
oder ein anderes Interface anzupassen. 


Jürgen und Dieter Geiss 


Nachdem Sie den Maschinenspracheteil 
des Programms in den Computer eingege- 
ben haben, speichern Sie ihn bitte unter 
dem Namen „PRINTHIRES“ mit einem 
BSAVE PRINTHIRES, A$1C00, L$0400. 
Danach geben Sie das Applesoft-Pro- 
gramm HIRES ein, und speichern Sie es 
dann unter dem Namen HIRES mit dem 
SAVE-Befehl ab. 

Beschreibung des Applesoft- 
Programms 

(Die halbfette Zahlen beziehen sich im 
nachfolgenden auf die Applesoft-Pro- 
grammzeilen) 

1000: ST ist die Startadresse für die Para¬ 
meter, die an das Maschinenprogramm 
übergeben werden. Die Startadresse wird 


auf 768 Dezimal = $0300 Hex gesetzt. 
1010: CO ist die Adresse für die Kontroll- 
zeichensequenz, um den Drucker auf ei¬ 
nen Grafikmodus zu schalten. 

1020: BY ist die Anzahl der Bytes/Zeilen, 
die der Drucker nun als Grafikzeichen in¬ 
terpretiert. 

1030: IM ist die Stärke (Impression), mit 
der gedruckt werden soll. Man unter¬ 
scheidet: 

a) Single Strike: Eine Grafikzeile wird ein¬ 
mal ausgedruckt. 

b) Double Strike: Eine Grafikzeile wird 
ausgedruckt, dann wird ein Wagenrücklauf 
und ein Zeilenvorschub um 1/216 Inch 
bewirkt und die Zeile nochmals ausge¬ 
druckt, 

c) Quadruple Strike: Eine Grafikzeile wird 
ausgedruckt, ein Wagenrücklauf ohne Zei¬ 
lenvorschub erwirkt, die Zeile wird noch- 


40 
































































^qRAFikm^l 


mals ausgedruckt. Dann wird wie beim 
Double Strike Modus ein Zeüenvorschub 
um 1/216 Inch bewirkt und die Zeile wie¬ 
der zweimal gedruckt 
Anmerkung zu b) und c): Funktioniert nur 
bei Druckern der Marke Epson. Bei ande¬ 
ren Druckern müssen die Unterprogram¬ 
me Linesp und LSI im Assemblerpro¬ 
gramm entsprechend modifiziert werden. 

1040: XO ist das Exclusive-Or-Byte. Die 
Grafikseite kann entweder positiv oder ne¬ 
gativ ausgedruckt werden ($00 oder $FF). 

a) positiv: Ein Punkt, der auf der Grafiksei¬ 
te gesetzt ist, wird auf dem Drucker aus¬ 
gegeben. 

b) negativ: Ein Punkt, der auf der Grafik¬ 
seite nicht gesetzt ist, wird auf dem Druk- 
ker ausgegeben. 

1050: Dl ist die Richtung (Direction), in der 
gedruckt werden soll. Es gibt die Möglich¬ 
keiten horizontal oder vertikal. 

1060: FR gibt an, ob ein Rand (Frame) das 
Hi-Res-Bild einrahmen soll. Der Rand ist 
ein Bit breit. 

1070: PA ist die Grafikseite (Page), die 
ausgedruckt werden soll. 

1. Page = $2000-$3FFF 

2. Page = $4000-$5FFF 

1080: RF bestimmt den Wiederholungs¬ 
faktor (Repeat Factor). Ein (Teil-)Bild kann 
mehrere Male nebeneinander ausgedruckt 
werden. 

1090: RD ist die Wiederholungsdistanz 
(Repeat Distance) und gibt die Anzahl der 
Bits zwischen den wiederholten Bildern 
an. 

1100: LE ist der linke Rand (left) des Hi- 
res-Bildes. Die Werte in LE und LE -F 1 
berechnen sich folgendermaßen: Das hö¬ 
herwertige Byte (LE -h 1) gibt das horizon¬ 
tale Byte der Hires-Page an, das nieder¬ 
wertige Byte das Bit in diesem Byte. Ist der 
linke Rand also 10, so muß in die Spei¬ 
cherzelle LE -F 1 eine 1, in LE eine 3 
gepokt werden (1 7 -F 3, da sieben Bits 

pro Byte ohne das Farbenbit gezählt 
werden). 

1110: RI ist der rechte (right) Rand. Die 
Berechnung entspricht der des linken 
Randes. 

1120: TP ist der obere (top) Rand. Er kann 
Werte zwischen 0 und 191 annehmen. 

1130: BO ist der untere (bottom) Rand. 
Auch hier treten Werte zwischen 0 und 
191 aut 

1140: XF ist der X-Faktor. Das Bild kann in 
X-Richtung (horizontal) gestreckt werden. 
Eine 1 entspricht der Originalgröße, bei 
einer 2 wird das Bild doppelt so groß in X- 
Richtung. Der Maximale Wert ist 31. 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 


ORG $1000 

**^^^^^****^^***********¥^***************^^************ 
^ PRINTHIRES * 

* FX-80, FX-lOO, RX-80, RX-lOO, MX-80. MX-82, MX-lOO * 


Base EQU $10 
Frameadr EQU $1E 


Start EQU 
Amprsand EQU 


Oontrol EQU 
* 

Bytes 
Impres 
XOR 
Direct 
Frame_yn EQU 
Page EQU 
Rfactor EQU 
Rdistnce EQU 
Left EQU 
Right EQU 
Top 

Bottom 
Xfactor EQU 
Yfactor EQU 


EQU 

EQU 

EQU 

EQU 


EQU 

EQU 


Lnumber EQU 
Asave EQU 
Ysave EQU 
Hcount EQU 
Vcount EQU 
Bitcount EQU 
Counter EQU 
Rcounter EQU 
Xcount EQU 
Ycount EQU 

LF EQU 
CR EQU 
ESC EQU 


$0300 

$03F6 

Start+$00 

Start+$02 

Start+$04 

Start+$06 

Start+$08 

Start+$0A 

Start+$0C 

Start+$0E 

Start+$10 

Start+$12 

Start+$14 

Start+$16 

Start+$18 

Start+$1A 

Start+$1C 

Start+$20 

Start+$21 

Start+$22 

Start+$23 

Start+$24 

Start+$25 

Start+$26 

Start+$27 

Start+$28 

Start+$29 

$0A 

$0D 

$1B 


;Adresse fuer Graphikzeile 
;Hilfsadresse fuer Bildrahmen 

;Start fuer Parameteruebergabe 
;Basic &-Vector 

;Graphik Steuerzeichen fuer 
;Drucker ohne ESC-Zeichen 
^Anzahl der Graphikbytes pro Zeile 
;1-, 2- oder 4-fach Dichte 
;Exklusives oder fuer jedes Byte 
;Richtung (0=horiz,, l=vertik.) 
;0=Rand, l=keln Rand 
jGraphik Seite 1 oder 2 
jAnzahl der Bilder pro Zeile 
;Distanz zw. 2 oder mehr Bildern 
;linker Bildrand {0..279) 

^rechter Bildrand (0^.279) 

;oberer Bildrand (0..191) 

;unterer Bildrand (0..191) 

;Dehnung in X-Richtung 
;Dehnung in Y-Richtung 

;Graphikzeilennummer 


Byt0_255 EQU $0200 


Prout 

Prstrb 


EQU $0090 
EQU $C1C1 


ASCII Code fuer Zeilenvorschub 
ASCII Code fuer Wagenruecklauf 
ASCII Code fuer ESCAPE 

;Zwischenspeicherung 

;Zeichen an Drucker (parallel) 
^Drucker bereit? 


ICOO: 

A9 

OB 


53 


LDA 

#<Pgmstart 

;&-Vektor fuer Basic an den Pro- 





54 

* 



;grammstart einstellen 

1C02 

8D 

F6 

03 

55 


STA 

Amprsand 


1C05 

A9 

IC 


56 


LDA 

+>Pgmstart 


1C07 

8D 

F7 

03 

57 


STA 

Amprsand+1 


ICOA 

60 



58 


RTS 







59 









60 

61 





ICOB: 

: AD 

OC 

03 

62 

Pgmstart 

LDA 

Page 

;initialisieren von Seite 1 oder 2 

ICOE: 

: DO 

07 


63 


BNE 

Page_2 


ICIO: 

: A9 

20 


64 


LDA 

#$20 


1C12 

: 8D 

00 

03 

65 


STA 

Page 


1C15 

: DO 

05 


66 


BNE 

Frametst 


1C17 

: A9 

40 


67 

Page_2 

LDA 

#$40 

;Graphik-Seite 2 

1019 

: 8D 

OC 

03 

68 


STA 

Page 






69 





IClC 

AD 

OA 

03 

70 

Frametst 

LDA 

Frame_yn 

;Test. auf Bildrahmen 

ICIF 

DO 

03 


71 


BNE 

No_Frame 


1C21 

20 

04 

IF 

72 


JSR 

Frame 

;zeichne Rahmen 





73 





1024 

AD 

08 

03 

74 

No_Frame 

LDA 

Direct 

;Test auf horiz. oder vert. 

1C27 

FO 

03 


75 


BEQ 

Horprint 


1C29 

4C 

76 

ID 

76 


JMP 

Verprint 






77 









f o 

79 





1020 

: A9 

17 


80 

Horprlnt 

LDA 

+23 

;23/216“ Zeilenvorschub 

1C2E 

: 20 

D6 

lE 

81 


JSR 

Linesp 






82 





1C31 

: AC 

16 

03 

83 


LDY 

Top 

;Zeile mit der begonnen wird 

1034 

: 8C 

20 

03 

84 


STY 

Lnumber 






85 





1C37 

: A9 

01 


86 

Hstart 

LDA 

#$01 

;Zaehler fuer Dehnung in 

1C39 

: 8D 

26 

03 

87 


STA 

Counter 

;Y-Richtung 


41 














1150: YF ist der Y-Faktor. Das Bild kann in 
der Vertikalen gestreckt werden. Eine 1 ist 
auch hier die Originalgröße. 

1180 - 1210: Es wird die Möglichkeit ge¬ 
geben, das augenblicklich im Speicher in 
der ersten Grafikseite befindliche Bild ab¬ 
zuspeichern. Dies wird immer unter dem 
Namen „PICTURE“ gemacht. 

1220 - 1230: Das Maschinenprogramm 
„PRINTHIRES“ wird geladen und gestar¬ 
tet. Es stellt den Ampersand-Vektor (&) 
auf den Wert $1C0B ein. Damit kann das 
eigentliche Druckprogramm mit einem 
einfachen &-Befehl gestartet werden. 

1250 - 1290: Es wird gefragt, ob sich die 
Grafik schon im Speicher befindet. Bei 
einem No wird der Disketteninhalt gezeigt 
und es kann eine Grafik geladen werden. 
1300 -1330: Der Bildschirm wird auf Gra¬ 
fik umgeschaltet. 

1340-1370: Wenn auf die Frage „Grund¬ 
einstellung?“ mit Yes geantwortet wird, 
werden die Parameter voreingestellt. Und 


zwar: 


CO 

= ASC(„K“) 


BY 

= 280 Bytes 


IM 

= 0 

= single strike 

XO 

= 0 

= positiv 

Dl 

= 0 

= horizontal 

FR 

= 0 

= Rand 

PA 

= 0 

= erste Seite 

RF 

= 1 


RD 

= 0 


LE 

= 0 


RI 

= 6/39 

= low/high 

TP 

= 0 


BO 

= 191 


XF 

= 1 


YF 

= 1 



1380-1460: Abfrage der Parameter 
1470 - 1640: Abfrage der zu ladenden 
Grafik 

1650 - 1700: Abfrage, ob richtiges Bild 
vorhanden ist 

1710 - 1760: Abfrage, ob andere Page 
gezeigt werden soll 

1770 - 1830: Zeigen der zweiten Grafik¬ 
seite 

1840 - 1850: Zurück zur Abfrage der zu 
ladenden Grafik 
1860-1900: Druck der Grafik 
1910 - 1980: Abfrage des nochmaligen 
Drückens und Endes des Hauptpro¬ 
gramms 

1990 - 2080: Voreinstellung der Para¬ 
meter 

2090 - 2130: Abfrage eines Kommandos 
2140-2320: Einstellen des Druckmodus 
2340-2400: Einstellen der Druckstärke 


1C3C 

20 

5E 

IC 

89 

Hstartl 

JSR 

Hlline 

;Bei Dehnung wird horizontale 

1C3F 

AD 

26 

03 

90 


LDA 

Counter 

;Zeile entsprechend oft gedruckt 

1C42 

CD 

IC 

03 

91 


CMP 

Yfactor 


1C45 

FO 

06 


92 


BEQ 

Hstart2 


1C47 

EE 

26 

03 

93 


INC 

Counter 


1C4A 

4C 

3C 

IC 

94 


JMP 

Hstartl 






95 





1C4D 

AD 

20 

03 

96 

Hstart2 

LDA 

Lnumber 

;Neue Zeile 

1C50 

18 



97 


CLC 



1C51 

69 

08 


98 


ADC 

#$08 

;8 Bits pro Zeile werden gedruckt 

1C53 

8D 

20 

03 

99 


STA 

Lnumber 


1C56 

CD 

18 

03 

100 


CMP 

Bottom 


1C59 

90 

DC 


101 


BCC 

Hstart 


1C5B 

4C 

99 

IF 

102 


JMP 

Quit 






103 





1C5E 

20 

E6 

lE 

104 

Hlline 

JSR 

CRLF 

;Drucke horizontale Zeile 





105 





1C61 

20 

8F 

IC 

106 

Hrepeatl 

JSR 

PrHline 


1C64 

20 

BD 

lE 

107 


JSR 

Sendbits 


1C67 

CE 

27 

03 

108 


DEC 

Rcounter 

;Zaehler fuer Bilderanzahl/Zeile 

1C6A 

DO 

F5 


109 


BNE 

Hrepeatl 






110 





1C6C 

20 

4A 

ID 

111 


JSR 

PrHagain 

;if Impression = 4-fach Dichte 





112 





1C6F 

20 

F4 

lE 

113 


JSR 

LSI 

;1/216" Zeilenvorschub 





114 





1C72 

AE 

04 

03 

115 


LDX 

Impres 


1C75 

EO 

01 


116 


CPX 

#$01 

;doppelte Dichte 

1C77 

FO 

07 


117 


BEQ 

Hrptl 


1C79 

EO 

02 


118 


CPX 

#$02 


1C7B 

DO 

11 


119 


BNE 

SkpDstrk 

;keine doppelte Dichte 





120 





1C7D 

20 

4A 

ID 

121 


JSR 

PrHagain 


1C80 

20 

92 

lE 

122 

Hrptl 

JSR 

Initline 


1C83 

20 

8F 

IC 

123 

Hrepeat2 

JSR 

PrHline 


1C86 

20 

BD 

lE 

124 


JSR 

Sendbits 


1C89: 

CE 

27 

03 

125 


DEC 

Rcounter 


1C8C: 

DO 

F5 


126 


BNE 

Hrepeat2 


1C8E; 

60 



127 

SkpDstrk 

RTS 







128 









129 






130 





1C8F 

AD 

12 

03 

131 

PrHUne 

LDA 

Left 

;druckt eine horizontale Zeile 

1C92 

8D 

25 

03 

132 


STA 

Bitcount 

;holt linker Rand in bits 

1C95 

AC 

13 

03 

133 


LDY 

Left+1 

;hires byte 

1C98 

8C 

22 

03 

134 

X_loop 

STY 

Ysave 


1C9B 

AD 

20 

03 

135 


LDA 

Lnumber 


1C9E 

8D 

24 

03 

136 


STA 

Vcount 


ICAl 

A9 

08 


137 


LDA 

#$08 

;8 Bit werden gedruckt 

1CA3 

8D 

23 

03 

138 


STA 

Hcount 






139 





1CA6; 

AD 

24 

03 

140 

Getbyte 

LDA 

Vcount 

;Zeilenadresse berechnen 

1CA9: 

20 

76 

IF 

141 


JSR 

Bascalc 


ICAC; 

Bl 

IC 


142 


LDA 

(Base),Y 

;hole ein Byte 

IC AE: 

AE 

25 

03 

143 


LDX 

Bitcount 

;Rechtsverschiebung bis linker 

ICBl: 

4A 



144 

Getbytel 

LSR 


;Rand im Byte erreicht ist 

1CB2: 

CA 



145 


DEX 


;hole jeweils ein Bit aus den 

1CB3: 

10 

FC 


146 


BPL 

Getbytel 

;naechsten 8 Zeilen und vereinige 

1CB5: 

2E 

21 

03 

147 


ROL 

Asave 

;diese zu einem Byte 

1CB8: 

CE 

23 

03 

148 


DEC 

Hcount 


ICBB: 

FO 

15 


149 


BEQ 

Hgood 


ICBD: 

AD 

24 

03 

150 


LDA 

Vcount 


ICCO : 

CD 

18 

03 

151 


CMP 

Bottom 


1CC3: 

FO 

05 


152 


BEQ 

Getbyte2 


1CC5: 

EE 

24 

03 

153 


INC 

Vcount 


1CC8: 

DO 

DC 


154 


BNE 

Getbyte 


ICCA; 

OE 

21 

03 

155 

Getbyte2 

ASL 

Asave 


ICCD: 

CE 

23 

03 

156 


DEC 

Hcount 


ICDO: 

DO 

F8 


157 


BNE 

Getbyte2 






158 





1CD2: 

AO 

08 


159 

Hgood 

LDY 

#$08 

;8 Bits 

LCD4: 

AD 

21 

03 

160 


LDA 

Asave 

;vergroessere in Y-Richtung um 

1CD7: 

4A 



161 

Hloopl 

LSR 


;Y-Faktor 

1CD8: 

08 



162 


PHP 



1CD9: 

AE 

IC 

03 

163 


LDX 

Yfactor 


ICDC: 

8E 

29 

03 

164 


STX 

Ycount 


ICDF: 

AE 

IC 

03 

165 

Hloop2 

LDX 

Yfactor 


1CE2: 

8E 

23 

03 

166 


STX 

Hcount 


1CE5: 

A2 

00 


167 


LDX 

#$00 


1CE7; 

3E 

00 

02 

168 

Hloop3 

ROL 

Byt0_255,X 


ICEA: 

E8 



169 


INX 



ICEB: 

CE 

23 

03 

170 


DEC 

Hcount 


ICEE: 

DO 

F7 


171 


BNE 

Hloop3 


ICFO: 

28 



172 


PLP 



ICFl: 

08 



173 


PHP 



1CF2: 

CE 

29 

03 

174 


DEC 

Ycount 


1CF5: 

DO 

E8 


175 


BNE 

Hloop2 


1CF7: 

28 



176 


PLP 
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2410 - 2470: Einstellen des Positiv/Ne¬ 
gativ-Drucks 

2480-2540: Einstellen der Druckrichtung 
2550 - 2610: Einstellen der Bildumran¬ 
dung 

2620 - 2680: Wählen der Grafikseite 
2700-2990: Einstellen und Ausrechenen 
der restlichen Parameter 
3000 - 3060: Berechnen der Byteanzahl 
(BY) in Abhängigkeit vom linken/rechten 
Rand und vom X- oder Y-Faktor. 



Bedienung des Applesoft- 
Programms 

Das Applesoft-Programm ist menüartig 
gesteuert und somit leicht zu bedienen. 
Die Abfragen erwarten entweder ein J/N 
oder Y/N oder eine Zahl. In beiden Fällen 
braucht die RETURN-Taste nicht betätigt 
zu werden. Es ist egal, ob Sie Groß- oder 
Kleinbuchstaben eingeben. Nur bei der 
Frage „Welche Grafik laden?“ muß nach 
dem Filenamen die RETURN-Taste betä¬ 
tigt werden. 

Modifikation des Applesoft- 
Programms für andere Drucker 

2140 - 2320: Je nach Möglichkeiten des 
Druckers müssen in CO und CO -i- 1 die 
Steuerzeichen (ohne führendes ESC) ge¬ 
schrieben werden. Als Beispiel sei die Zei¬ 
le 2260 angeführt, die in CO den ASCII- 
Wert von K schreibt, damit das Maschi¬ 
nenprogramm an den Drucker die Se¬ 
quenz ESC „K“ schickt. Dies schaltet ei¬ 
nen Epson Drucker auf Normalgraphik. 

Das Applesoft-Programm läuft mit den 
meisten Interfaces. 


1CF8 

: 88 



177 


DEY 



1CF9 

: DO 

DC 


178 


BNE 

Hloopl 






179 





ICFB 

: AE 

26 

03 

180 


LDX 

Counter 


ICFE 

: 8E 

24 

03 

181 


STX 

Vcount 


IDOl 

: AO 

08 


182 

Hloop4 

LDY 

#$08 


1D03 

: 18 



183 

Hloop5 

CLC 



1D04 

: AE 

IC 

03 

184 


LDX 

Yfactor 


1D07 

: CA 



185 


DEX 



1D08 

: 7E 

00 

02 

186 

Hloop6 

ROR 

BytO_255,X 


IDOB 

: CA 



187 


DEX 



IDOC 

; 10 

FA 


188 


BPL 

Hloop6 


IDOE 

: 2A 



189 


ROL 



IDOF 

: 88 



190 


DEY 



IDIO 

: DO 

Fl 


191 


BNE 

HloopS 


1D12 

: CE 

24 

03 

192 


DEC 

Vcount 


1D15 

: DO 

EA 


193 


BNE 

Hloop4 






194 





iDir 

: 4D 

06 

03 

195 


EOR 

XOR 


IDIA 

: AE 

lA 

03 

196 


LDX 

Xfactor 

;vergroessert in X-Richtung um 





197 





ID ID 

: 20 

78 

lE 

198 

Hagain 

JSR 

Print 

;X-Faktor 

1D20 

: CA 



199 


DEX 



1D21 

: DO 

FA 


200 


BNE 

Hagain 






201 





1D23 

1 AC 

22 

03 

202 


LDY 

Ysave 

;rechter Bildschirmrand schon 

1D26 

: CG 

15 

03 

203 


CPY 

Right+1 

;erreicht? 

1D29 

: DO 

09 


204 


BNE 

Hagainl 


1D2B 

: AD 

25 

03 

205 


LDA 

Bitcount 


1D2E 

; CD 

14 

03 

206 


CMP 

Right 


1D31 

: DO 

01 


207 


BNE 

Hagainl 


1D33 

; 60 



208 


RTS 


;ja, dann Ende 

1D34 

: EE 

25 

03 

209 

Hagainl 

INC 

Bitcount 


1D37 

: AD 

25 

03 

210 


LDA 

Bitcount 

;alle 7 Bits schon abgearbeitet? 

1D3A 

: C9 

07 


211 


CMP 

#$07 

;7 hires Bits pro Byte 

1D3C 

: FO 

03 


212 


BEQ 

Hagain2 


1D3E 

: 4C 

98 

IC 

213 


JMP 

X_loop 

; nein 

1D41 

: C8 



214 

Hagain2 

INY 


jnaechstes Byte 

1D42 

: A9 

00 


215 


LDA 

#$00 


1D44 

: 8D 

25 

03 

216 


STA 

Bitcount 


1D47 

; 4C 

98 

IC 

217 


JMP 

X__loop 






218 

219 









220 





1D4A 

: AD 

04 

03 

221 

PrHagain 

LDA 

Impres 


1D4D 

: C9 

02 


222 


CMP 

#$02 

;vierfache Dichte 

1D4F 

: DO 

OE 


223 


BNE 

PrHagan2 


1D51 

: 20 

92 

lE 

224 


JSR 

Initline 


1D54 

: 20 

8F 

IC 

225 

PrHaganl 

JSR 

PrHline 


1D57 

; 20 

BD 

lE 

226 


JSR 

Sendbits 


1D5A 

: CE 

27 

03 

227 


DEC 

Rcounter 


1D5D 

; DO 

F5 


228 


BNE 

PrHaganl 


1D5F 

: 60 



229 

PrHagan2 

RTS 







230 









231 

****#4(f * üf * # * * * # ** * * *#* * 





232 





1D60 

: AD 

04 

03 

233 

PrVagain 

LDA 

Impres 


1D63 

: C9 

02 


234 


CMP 

#$02 

;vierfache Dichte 

1D65 

; DO 

OE 


235 


BNE 

PrVagan2 


1D67 

; 20 

92 

lE 

236 


JSR 

Initline 


1D6A 

: 20 

Dl 

ID 

237 

PrVaganl 

JSR 

PrVline 


1D6D 

: 20 

BD 

lE 

238 


JSR 

Sendbits 


1D70 

; CE 

27 

03 

239 


DEC 

Rcounter 


1D73 

: DO 

F5 


240 


BNE 

PrVaganl 


1D75 

: 60 



241 

PrVagan2 

RTS 







242 

243 









244 





XD7e: A9 

14 


245 

Verprint 

LDA 

#20 

;20/216" Zeilenvorschub 

mB 

: 20 

D6 

lE 

246 


JSR 

Linesp 

;der vertikale Druck funktioniert 





247 





1D7B; AC 

15 

03 

248 


LDY 

Right+1 

;wie der horizontale Druck, mit 

1D7E: 8C 

22 

03 

249 

Vstart 

STY 

Ysave 

;dem Unterschied, dass immer nur 

1D81 

: A9 

01 


250 


LDA 

#$01 

;7 Bits pro Zeile ausgedruckt wer- 

1D83: 8D 

26 

03 

251 


STA 

Counter 

; den, 





252 





1D86 

20 

E6 

lE 

253 

Countrlp JSR 

CRLF 


1D89 

20 

Dl 

ID 

254 

Vrepeati 

JSR 

PrVline 


1D8C 

20 

BD 

lE 

255 


JSR 

Sendbits 


1D8F 

CE 

27 

03 

256 


DEC 

Rcounter 


1D92 

DO 

F5 


257 


BNE 

Vrepeati 






258 





1D94: 

20 

60 

ID 

259 


JSR 

PrVagain 






260 





1D97: 

20 

F4 

lE 

261 


JSR 

LSI 






262 





1D9A 

AE 

04 

03 

263 


LDX 

Impres 


1D9D 

EO 

01 


264 


CPX 

#$0i 


1D9F 

FO 

07 


265 


BEQ 

Not_ds 
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Modifikation des Maschinen¬ 
programms für andere Drucker 
oder Interfaces 

379 - 382: In Asave befindet sich das 
Byte, das auszudrucken ist. Ist der Druk- 
ker noch nicht fertig, wartet er in der 
Prwait-Schleife. Das Programm wartet, 
wenn der Printerstrobe negativ ist. Der 
Printerstrobe kann in Zeile 48 geändert 
werden. Ist der Drucker fertig, wird das 
Zeichen an den Drucker gesandt. Dies 
geschieht mit einem STA $C090 (gültig für 
Slot 1). In Zeile 47 kann das geändert 
werden. 

Wichtig ist also, wie das Interface erkennt, 
ob der Drucker schon druckbereit ist, und 
wie ein Zeichen an den Drucker geschickt 
wird. 

429 - 438: Hier muß die Kontrollsequenz 
untergebracht sein, die bewirkt, daß der 
Drucker auf n/216 Inch Zeilenabstand um¬ 
schaltet. Beim Epson ist dies ESC „3“. 
449 - 457: Hier muß sich die Kontrollse¬ 
quenz befinden, die das Papier um 1/216 
Inch vorwärtsbewegt. Beim Epson ist dies 
ESC „J“ 1. 


Hinweis: Eine modifizierte Version von 
PRINTHIRES für den Image-Writer befin¬ 
det sich in Vorbereitung für die Peeker- 
Sammeldiskette. 


MMU 2.0 

Memory Managements 
Utilities 

für die Apple Ile 64K-Karte 
DOS 3.3 (und ProDOS) 

von U. Stiehl 

1984, Diskette und Manual, DM 98,- 
ISBN 3-7787-1023-1 

Insgesamt enthält die neue „MMU 2.0"- 
Diskette über 25 Programme, die neue 
Einsatzmöglichkeiten für die Extended 80 
Column Card (erweiterte 80-Z-Karte = 
64K-Karte für den Apple Ile) erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple II Plus, doch ist „MMU 2.0“ 
primär für 64K-Karte-Besitzer gedacht. 
Gerätevoraussetzung: Apple Ile mit 64K- 
Karte oder l!c 

Hüthig Software Service, 

Postfach 10 28 69, D-6900 Heidelberg 


IDAl: EO 02 

266 


CPX 

#$02 

1DA3: DO 11 

267 


BNE 

Skip_ds ;keine doppelte Dichte 


268 




1DA5; 20 60 ID 

269 


JSR 

PrVagain 

IDAB: 20 92 lE 

270 

Not_ds 

JSR 

Initline 

IDAB: 20 Dl ID 

271 

Vrepeat2 

JSR 

PrVline 

IDAE: 20 BD lE 

272 


JSR 

Sendbits 

IDBl: CE 27 03 

273 


DEC 

Rcounter 

1DB4: DO F5 

274 


BNE 

Vrepeat2 


275 




1DB6: AD 26 03 

276 

Skip_ds 

LDA 

Counter 

1DB9: CD lA 03 

277 


CMP 

Xfactor 

IDBC: FO 06 

278 


BEQ 

Next_JC 

IDEE: EE 26 03 

279 


INC 

Counter 

IDCl: 4C 86 ID 

280 


JMP 

Countrlp 


281 




1DC4: AD 22 03 

282 

Next_X 

LDA 

Ysave 

1DC7: A8 

283 


TAY 


1DC8; 88 

284 


DEY 


1DC9: CD 13 03 

285 


CMP 

Left+1 

IDCC: DO BO 

286 


BNE 

Vstart 

IDCE: 4C 99 IF 

287 


JMP 

Quit 


288 

OQQ 





<coy 

290 




IDDl: AD 16 03 

291 

PrVline 

LDA 

Top 

1DD4: 8D 20 03 

292 


STA 

Lnumber 

1DD7; 20 76 IF 

293 

Lineloop JSR 

Bascalc 

IDDA: AC 22 03 

294 


LDY 

Ysave 

IDDD: Bl IC 

295 


LDA 

(Base).Y 

IDDF: 8D 21 03 

296 


STA 

Asave 

1DE2: CC 15 03 

297 


CPY 

Right+1 

1DE5: DO 16 

298 


BNE 

RMbit ;rightmost bit 

1DE7: A9 06 

299 


LDA 

#$06 

1DE9: 38 

300 


SEC 


IDEA: ED 14 03 

301 


SBC 

Right 

IDED: FO OE 

302 


BEQ 

RMbit 

IDEF: AA 

303 


TAX 


IDFO: E8 

304 


INX 


IDFl: A9 FF 

305 


LDA 

#$FF 

1DF3; 4A 

306 

Lnloopl 

LSR 


1DF4: CA 

307 


DEX 


1DF5; DO FC 

308 


BNE 

Lnloopl 

1DF7: 2D 21 03 

309 


AND 

Asave 

IDFA: 8D 21 03 

310 


STA 

Asave 

IDFD: AD 21 03 

311 

RMbit 

LDA 

Asave 

lEOO: AC 13 03 

312 


LDY 

Left+1 

1E03: CC 22 03 

313 


CPY 

Ysave 

1E06; DO OE 

314 


BNE 

Vok 

1E08: AE 12 03 

315 


LDX 

Left 

lEOB: FO 09 

316 


BEQ 

Vok 

lEOD: A9 FF 

317 


LDA 

#$FF 

lEOF: OA 

318 

Genmask 

ASL 


lElO: CA 

319 


DEX 


lEll: DO FC 

320 


BNE 

Genmask 

1E13: 2D 21 03 

321 


AND 

Asave 

1E16: AO 07 

322 

Vok 

LDY 

#$07 

lElS: 4A 

323 

Vokl 

LSR 


1E19: 08 

324 


PHP 


lElA: AE lA 03 

325 


LDX 

Xfaotor 

lElD: 8E 28 03 

326 


STX 

Xcount 

1E20; AE lA 03 

327 

Vok20 

LDX 

Xfactor 

1E23: 8E 23 03 

328 


STX 

Hcount 

1E26: A2 00 

329 


LDX 

#$00 

1E28: 3E 00 02 

330 

Vok2 

ROL 

BytO_255,X 

1E2B: E8 

331 


INX 


1E2C: CE 23 03 

332 


DEC 

Hcount 

1E2F: DO F7 

333 


BNE 

Vok2 

1E31: 28 

334 


PLP 


1E32: 08 

335 


PHP 


1E33; CE 28 03 

336 


DEC 

Xcount 

1E36: DO E8 

337 


BNE 

Vok20 

1E38: 28 

338 


PLP 


1E39: 88 

339 


DEY 


1E3A: DO DC 

340 


BNE 

Vokl 


341 




1E3C: AE 26 03 

342 


LDX 

Counter 

1E3F: 8E 24 03 

343 


STX 

Vcount 

1E42: AO 07 

344 

Vok3 

LDY 

#$07 ;7 Bits pro Zeile 

1E44; 18 

345 

Vok4 

CLC 


1E45: AE lA 03 

346 


LDX 

Xfactor 

1E48: CA 

347 


DEX 


1E49: 7E 00 02 

348 

Vok5 

ROR 

BytO_255,X 

1E4C: CA 

349 


DEX 


1E4D; 10 FA 

350 


BPL 

Vok5 

1E4F: 2A 

351 


ROL 


1E50: 88 

352 


DEY 


1E51: DO Fl 

353 


BNE 

Vok4 
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1E53: 

1E56: 

1E58: 

1E5B; 

1E5D: 

1E60; 

1E63: 

1E64: 

1E66: 

1E69: 

1E6C: 

1E6F: 

1E72: 

1E74: 

1E77: 


1E78: 

1E7B: 

1E7C: 

1E7D: 

1E7E: 

1E7F: 

1E82: 

1E85; 

1E87: 

1E8A: 

1E8B: 

1E8C; 

1E8D; 

1E8E: 

1E91; 


1E92 

1E94 

1E97 

1E99 

1E9C 

1E9F 

1EA2 

1EA5 

1EA7 

lEAA 

lEAD 

lEBO 

1EB3 

1EB6 

1EB9 

lEBC 


lEBD: 
lECO : 
lECl: 
1EC4: 
1EC5; 
IEC7: 
lECS: 

lECA: 

lECC; 

lECF: 

lEDO; 

1ED2: 

1ED3: 

1ED5: 


1ED6: 

1ED7: 

1ED9: 

lEDC: 

lEDE: 

iml: 

1EE2: 

IBES: 


1EE6; 


CE 

24 

03 

354 


DEC 

Vcount 


DO 

EA 


355 


BNE 

Vok3 





356 





4D 

06 

03 

357 


EOR 

XOR 


29 

7F 


358 


AND 

#$7F 


AC 

IC 

03 

359 


LDY 

Yfactor 





360 





20 

78 

lE 

361 

Vagain 

JSR 

Print 


88 



362 


DEY 



DO 

FA 


363 


BNE 

Vagain 





364 





AE 

20 

03 

365 


LDX 

Lnumber 


EE 

20 

03 

366 


INC 

Lnumber 


AD 

20 

03 

367 


LDA 

Lnumber 


EC 

18 

03 

368 


CPX 

Bottom 


BO 

03 


369 


BCS 

Vagainl 


4C 

D7 

ID 

370 


JMP 

Lineloop 





371 





60 



372 

Vagainl 

RTS 






373 

374 








375 





8D 

21 

03 

376 

Print 

STA 

Asave 

;diese Unterprogramm, das mit ei- 

8A 



377 


TXA 


;nem Parallel Interface arbeitet, 

48 



378 


PHA 


;schickt ein Zeichen an den 

98 



379 


TYA 


;Drucker. Will man andere Schnitt- 

48 



380 


PHA 


;stellen benutzen, so muss dieses 

AD 

21 

03 

381 


LDA 

Asave 

;UP geaendert werden 

2C 

CI 

CI 

382 

Prwait 

BIT 

Prstrb 

;ist Drucker bereit? 

30 

FB 


383 


BMI 

Prwait 


8D 

90 

CO 

384 


STA 

Prout 

;wenn ja, sende ein Zeichen 

68 



385 


PLA 



AS 



386 


TAY 



68 



387 


PLA 



AA 



388 


TAX 



AD 

21 

03 

3S9 


LDA 

Asave 


60 



390 


RTS 






391 








392 





393 





A9 

OD 


394 

Initline 

LDA 

#CR 

;neue Zeile initialisieren 

20 

78 

lE 

395 


JSR 

Print 


A9 

IB 


396 


LDA 

#ESC 

;das ESC-Zeichen geht den Graphik- 

20 

78 

lE 

397 


JSR 

Print 

;Steuerzeichen immer vcrraus 

AD 

00 

03 

398 


LDA 

Control 

;Steuerzeichen fuer Graphikmodus 

20 

78 

lE 

399 


JSR 

Print 


AD 

01 

03 

400 


LDA 

Control+1 


FO 

03 


401 


BEQ 

Initlnl 


20 

78 

lE 

402 


JSR 

Print 


AD 

02 

03 

403 

Initlnl 

LDA 

Bytes 

;Anzahl der Graphikbytes, zuerst 

20 

78 

lE 

404 


JSR 

Print 

;low, dann high 

AD 

03 

03 

405 


LDA 

Bytes+1 


20 

78 

lE 

406 


JSR 

Print 


AD 

OE 

03 

407 


LDA 

Rfactor 


8D 

27 

03 

408 


STA 

Rcounter 


60 



409 


RTS 






410 








411 





412 





AD 

10 

03 

413 

Sendbits 

LDA 

Rdistnce 

;Zwischenraum zwischen 2 oder mehr 

AA 



414 


TAX 


;Bildern pro Zeile 

AD 

11 

03 

415 


LDA 

Rdistnce+1 


A8 



416 


TAY 



DO 

03 


417 


BNE 

Sendthem 


8A 



418 


TXA 



FO 

OB 


419 


BEQ 

Exitsend 





420 





A9 

00 


421 

Sendthem 

LDA 

#$00 

;Zwischenraum wird mit $00 ge~ 

20 

78 

lE 

422 

Sendl 

JSR 

Print 

;fuellt 

CA 



423 


DEX 



DO 

FA 


424 


BNE 

Sendl 


88 



425 


DEY 



10 

F7 


426 


BPL 

Sendl 


60 



427 

Exitsend 

RTS 






428 








429 





430 





43 



431 

Linesp 

PHA 


;Inhalt des Akkus * 1/216“ Zeilen- 

A9 

IB 


432 


LDA 

#ESC 

:Vorschub 

20 

78 

lE 

433 


JSR 

Print 


A9 

33 


434 


LDA 

#'3' 


20 

78 

lE 

435 


JSR 

Print 


6Q 



436 


PLA 



20 

78 

lE 

437 


JSR 

Print 


60 



438 


RTS 






439 

440 








441 





> 

CD 

OD 


442 

CRLF 

LDA 

#CR 

;neue Zeile ^ 


TEAC FD55A 40 Track einseitig. 595,- 

TEAC FD55B 40 Track doppelseitig . , 695,- 

TEAC FD55E 80 Track einseitig. 675,- 

TEAC FD55F 80 Track doppelseitig ., 799,- 

TEAC FD55G 8" kompatibel. 925,- 

APPLE®-kompatibles Laufwerk . . . 679,- 

ZUSATZ-KARTEN: 

V-24-Schnittstelle.199,- 

Z-80-Karte m. Softswitch . 139,- 

80-Zeichen-Karte.236,- 

16 K-Language-Karte ..138,- 

Centronics-Karte von Epson 
fürGraphik .... 210,- für Text. *. . 145,- 
Eprommer incl. Software. 198,- 

Joy Stick . 69,- 

Netzteil 5A ..149,- 

Wir haben das Floppy-Gehäuse für Sie! 

19 ' System 42 TE 3 HE 

(135x216x300) 

Komplett vorgefertigt für 2 
Laufwerke 5Va Slimline 
(Teac) oder % (BASF). 

für APPLE. 159,- 

Floppy-Kabel 34pol. für 2 Laufwerke 

mit Shugart-Bus. 42,- 

Floppy-Controller für Apple-komp. Computer 

Dieser Controller kann 2 Apple-Laufwerke 
steuern oder 2 Laufwerke mit Shugart-komp. 
Bus (auch doppelseitig 40 oder 80Track), z,B. 
BASF - TEAC - PHILIPS - SHUGART etc., 
auch SONY 3 V 2 " Laufwerke 

aufgebaut und getestet . 230,- 

Bausatz wie oben. 199,- 

Leerplatine wie ob. incl. Prom u. Eprom 98,- 

Die Alternative... 




_/ 

Preh Commander Keyboards 

(Sonderanfertigung für Apple-kompatible Computer) 

Auf die Preh-Qualität brauchen auch Sie 
nicht mehr zu verzichten. 

AK 88 -Apple spez.- kompl. mit Gehäuse, An¬ 
schlußkabel, deutschem Tastensatz, separat. 
Zehner-Block sowie Sondertasten f. Rechen¬ 
funktionen und häufig gebrauchte Controller- 
Codes . 359,- 

EPSON-DruckerFXSO. 1670,- 

EPSON-DruckerFXlOO. 2159.- 

EPSON-DruckerRX80 . 1079,- 

EPSON-DruckerRX80FT . 1295,- 

Patch-Diskette -ermöglicht die Modifikation 
der drei häufigsten Betriebssysteme für Apple 
II bzw. kompatible Computer zum Betrieb von 
1 X 35 bis 2 X 80 Track Laufwerken bis 640 K 

pro Drive . *... ^^ *. 80,- 

Manual vorab 15,-DM (wird beim Kauf der 
Patch-Diskette angerechnet). 

Patch-Diskette für SONY 3 V 2 " Laufwerke - 
ermöglicht die Anpassung an ll/lle und kom¬ 
patible Computer . 80,- 

Manual vorab 15,-DM (wird beim Kauf der 
Patch-Diskette angerechnet). 

10 Disketten f. Sony 3V 2 " Laufwerke . 150,- 



SONY 31/2'Laufwerk 

■ ■ .nur849|* 


... deshatb 
gleich besteilen! 


Preisliste anfordern von: 


Uedd ng eicctronics 


Holtewiese 2 
5750 Menden 1 


DFU 02373/66877 
Tel. 02373/63159 


I Betriebsferien vom 5. -19. Oktober *84 | 
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PRINTHIRES Hex-Dump 


$1C00: A9 

OB 

8D 

F6 

03 

A9 

10 

8D 

$1C08: F7 

03 

60 

AD 

00 

03 

DO 

07 

$1C10: A9 

20 

8D 

00 

03 

DO 

05 

A9 

$1C18: 40 

8D 

00 

03 

AD 

OA 

03 

DO 

$1020: 03 

20 

04 

IF 

AD 

08 

03 

FO 

$1028: 03 

40 

76 

ID 

A9 

17 

20 

D6 

$1030: lE 

AC 

16 

03 

80 

20 

03 

A9 

$1038: 01 

8D 

26 

03 

20 

5E 

10 

AD 

$1040: 26 

03 

CD 

10 

03 

FO 

06 

EE 

$1048: 26 

03 

40 

30 

10 

AD 

20 

03 

$1050: 18 

69 

08 

8D 

20 

03 

CD 

18 

$1058: 03 

90 

DO 

40 

99 

IF 

20 

E6 

$1060: lE 

20 

8F 

10 

20 

BD 

lE 

CE 

$1068: 27 

03 

DO 

F5 

20 

4A 

ID 

20 

$1070: F4 

lE 

AE 

04 

03 

EO 

01 

FO 

$1078: 07 

EO 

02 

DO 

11 

20 

4A 

ID 

$1080: 20 

92 

lE 

20 

8F 

10 

20 

BD 

$1088: lE 

CE 

27 

03 

DO 

F5 

60 

AD 

$1090: 12 

03 

8D 

25 

03 

AC 

13 

03 

$1098: 80 

22 

03 

AD 

20 

03 

8D 

24 

SlCAO; 03 

A9 

08 

8D 

23 

03 

AD 

24 

$1CA8; 03 

20 

76 

IF 

Bl 

10 

AE 

25 

$1CB0: 03 

4A 

CA 

10 

FC 

2E 

21 

03 

$1CB8: OE 

23 

03 

FO 

15 

AD 

24 

03 

$1000: OD 

18 

03 

FO 

05 

EE 

24 

03 

$1008: DO 

DO 

OE 

21 

03 

CE 

23 

03 

$10D0: DO 

F8 

AO 

08 

AD 

21 

03 

4A 

$10D8: 08 

AE 

10 

03 

8E 

29 

03 

AE 

$10E0: 10 

03 

8E 

23 

03 

A2 

00 

3E 

$10E8: 00 

02 

E8 

OE 

23 

03 

DO 

F7 

$1CF0: 28 

08 

CE 

29 

03 

DO 

E8 

28 

$10F8: 88 

DO 

DO 

AE 

26 

03 

8E 

24 

$1D00; 03 

AO 

08 

18 

AE 

10 

03 

CA 

$1D08: 7E 

00 

02 

CA 

10 

FA 

2A 

88 

$1D10: DO 

Fl 

CE 

24 

03 

DO 

EA 

4D 

$1D18: 06 

03 

AE 

lA 

03 

20 

78 

lE 

$1D20: OA 

DO 

FA 

AC 

22 

03 

00 

15 

$1D28: 03 

DO 

09 

AD 

25 

03 

CD 

14 

$1D30: 03 

DO 

01 

60 

EE 

25 

03 

AD 

$1D38: 25 

03 

09 

07 

FO 

03 

40 

98 

$1D40: 10 

08 

A9 

00 

8D 

25 

03 

40 

$1D48: 98 

10 

AD 

04 

03 

09 

02 

DO 

$1D50: OE 

20 

92 

lE 

20 

8F 

10 

20 

$1D58: BD 

lE 

CE 

27 

03 

DO 

F5 

60 

$1D60: AD 

04 

03 

09 

02 

DO 

OE 

20 

$1D68: 92 

lE 

20 

Dl 

ID 

20 

BD 

lE 

$1D70: OE 

27 

03 

DO 

F5 

60 

A9 

14 

$1D78: 20 

D6 

lE 

AC 

15 

03 

80 

22 

$1D80: 03 

A9 

01 

8D 

26 

03 

20 

E6 

$1D88: lE 

20 

Dl 

ID 

20 

BD 

lE 

CE 

$1D90: 27 

03 

DO 

F5 

20 

60 

ID 

20 

$1D98: F4 

lE 

AE 

04 

03 

EO 

01 

FO 

$1DA0: 07 

EO 

02 

DO 

11 

20 

60 

ID 

$1DA8: 20 

92 

lE 

20 

Dl 

ID 

20 

BD 

$1DB0: lE 

CE 

27 

03 

DO 

F5 

AD 

26 

$1DB8: 03 

CD 

lA 

03 

FO 

06 

EE 

26 

$1DC0; 03 

40 

86 

ID 

AD 

22 

03 

A8 

$1DC8: 88 

CD 

13 

03 

DO 

BO 

40 

99 

$1DD0: IF 

AD 

16 

03 

8D 

20 

03 

20 

$1DD8; 76 

IF 

AC 

22 

03 

Bl 

10 

8D 

$1DE0: 21 

03 

00 

15 

03 

DO 

16 

A9 

$1DE8: 06 

38 

ED 

14 

03 

FO 

OE 

AA 

$1DF0: E8 

A9 

FF 

4A 

CA 

DO 

FC 

2D 

$1DF8: 21 

03 

8D 

21 

03 

AD 

21 

03 

$1E00: AC 

13 

03 

00 

22 

03 

DO 

OE 

$1E08: AE 

12 

03 

FO 

09 

A9 

FF 

OA 

$1E10: CA 

DO 

FC 

2D 

21 

03 

AO 

07 

$1E18: 4A 

08 

AE 

lA 

03 

8E 

28 

03 

$1E20: AE 

lA 

03 

8E 

23 

03 

A2 

00 

$1E28: 3E 

00 

02 

E8 

CE 

23 

03 

DO 

$1E30: F7 

28 

08 

CE 

28 

03 

DO 

E8 

$1E38: 28 

88 

DO 

DO 

AE 

26 

03 

8E 

$1E40: 24 

03 

AO 

07 

18 

AE 

lA 

03 

$1E48: CA 

7E 

00 

02 

CA 

10 

FA 

2A 

$1E50: 88 

DO 

Fl 

CE 

24 

03 

DO 

EA 

$1E58: 4D 

06 

03 

29 

7F 

AC 

10 

03 

$1E60: 20 

78 

lE 

88 

DO 

FA 

AE 

20 

$1E68: 03 

EE 

20 

03 

AD 

20 

03 

EC 

$1E70: 18 

03 

BO 

03 

40 

D7 

ID 

60 

$1E78: 8D 

21 

03 

8A 

48 

98 

48 

AD 

$1E80: 21 

03 

20 

01 

01 

30 

FB 

8D 

$1E88: 90 

00 

68 

A8 

68 

AA 

AD 

21 

$1E90: 03 

60 

A9 

OD 

20 

78 

lE 

A9 

$1E98: IB 

20 

78 

lE 

AD 

00 

03 

20 


1EE8 

lEEB 

lEED 

lEFO 

1EF3 

20 

A9 

20 

20 

60 

78 

OA 

78 

92 

lE 

lE 

lE 

443 

444 

445 

446 

447 

448 


JSR 

LDA 

JSR 

JSR 

RTS 

Print 

#LF 

Print 

Initline 





450 




1EF4 

A9 

IB 


451 

LSI 

LDA 

#ESC ;1/216“ Zeilenvorschub 

1EF6 

20 

78 

lE 

452 


JSR 

Print 

1EF9 

A9 

4A 


453 


LDA 

J' 

lEFB 

20 

78 

lE 

454 


JSR 

Print 

lEFE 

A9 

01 


455 


LDA 

#$01 

IFOO 

20 

78 

lE 

456 


JSR 

Print 

1F03 

60 



457 


RTS 






458 








459 

#**#*##*** **************5^**#********** ************* 





460 




1F04 

AO 

00 


461 

Frame 

LDY 

#$00 ;Dieses UP malt einen Rahmen um 

1F06 

AD 

00 

03 

462 


LDA 

Page ;das Bild (zum besseren Ausschnei- 

1F09 

84 

lE 


463 


STY 

Frameadr ;den) 

IFOB 

85 

IF 


464 


STA 

Frameadr+1 

IFOD 

A9 

FF 


465 


LDA 

#$FF 

IFOF 

4D 

06 

03 

466 


EOR 

XOR 

1F12 

91 

lE 


467 

Framel 

STA 

(Frameadr),Y 

1F14 

08 



468 


INY 


1F15 

: 00 

28 


469 


CPY 

*$28 

1F17 

: 90 

F9 


470 


BCC 

Framel 

1F19 

: A9 

BF 


471 


LDA 

#191 

IFIB 

: 20 

76 

IF 

472 


JSR 

Bascalc 

IFIE 

: AO 

00 


473 


LDY 

#$00 

1F20 

: A9 

FF 


474 


LDA 

#$FF 

1F22 

: 4D 

06 

03 

475 


EOR 

XOR 

1F25 

: 91 

10 


476 

Frame2 

STA 

(Base),Y 

1F27 

: 08 



477 


INY 


1F28 

: 00 

28 


478 


CPY 

#$28 

1F2A 

: 90 

F9 


479 


BCC 

Frame2 

1F2C 

: A2 

00 


480 


LDX 

#$00 

1F2E 

: 8A 



481 

Frame3 

TXA 


1F2F 

: 20 

76 

IF 

482 


JSR 

Bascalc 

1F32 

: AO 

00 


483 


LDY 

#$00 

1F34 

: Bl 

10 


484 


LDA 

(Base),Y 

1F36 

: 8D 

21 

03 

485 


STA 

Asave 

1F39 

; A9 

01 


486 


LDA 

#$01 

1F3B 

: 4D 

06 

03 

487 


EOR 

XOR 

1F3E 

; 30 

05 


488 


BMI 

Frame4 ;negativ 

1F40 

: OD 

21 

03 

489 


ORA 

Asave 

1F43 

: DO 

03 


490 


BNE 

Frarae5 ;unbedingter Sprung 

1F45 

; 2D 

21 

03 

491 

Frame4 

AND 

Asave 

1F48 

: 8D 

21 

03 

492 

Frame5 

STA 

Asave 

1F4B 

: AD 

21 

03 

493 


LDA 

Asave 

1F4E 

: 91 

10 


494 


STA 

(Base),Y 

1F50 

: AO 

27 


495 


LDY 

#$27 

1F52 

: Bl 

10 


496 


LDA 

(Base),Y 

1F54 

: 8D 

21 

03 

497 


STA 

Asave 

1F57 

: A9 

40 


498 


LDA 

#$40 

1F59 

: 4D 

06 

03 

499 


EOR 

XOR 

1F5C 

: 09 

40 


500 


CMP 

#$40 

1F5E 

: DO 

05 


501 


BNE 

Frame6 ;negativ 

1F60 

: OD 

21 

03 

502 


ORA 

Asave 

1F63 

: DO 

03 


503 


BNE 

Frame7 

1F65 

: 2D 

21 

03 

504 

Frame6 

AND 

Asave 

1F68 

: 8D 

21 

03 

505 

Frame7 

STA 

Asave 

1F6B 

: AD 

21 

03 

506 


LDA 

Asave 

1F6E 

: 91 

10 


507 


STA 

(Base).Y 

1F70 

: E8 



508 


INX 


1F71 

: EO 

00 


509 


CPX 

#192 

1F73 

: 90 

B9 


510 


BCC 

Frame3 

1F75 

: 60 



511 


RTS 



512 

513 





514 




1F76: 

48 


515 Bascalc 

PHA 


;Berechnet die ßasisadresse der 

1F77; 

29 

00 

516 

AND 

#$C0 

jZeile, die im Akku uebergeben 

1F79: 

85 

10 

517 

STA 

Base 

;wurde und modifiziert sie ent- 

1F7B: 

4A 


518 

LSR 


;sprechend der 1, oder 2, Graphik- 

1F7C: 

4A 


519 

LSR 


;Seite 

1F7D: 

05 

10 

520 

ORA 

Base 


1F7F: 

85 

10 

521 

STA 

Base 


1F81: 

68 


522 

PLA 



1F82: 

85 

ID 

523 

STA 

Base+1 


1F84: 

OA 


524 

ASL 



1F85: 

OA 


525 

ASL 



1F86: 

OA 


526 

ASL 



1F87: 

26 

ID 

527 

ROL 

Base+1 


1F89: 

OA 


528 

ASL 



1F8A: 

26 

ID 

529 

ROL 

Base+1 


1F8C: 

OA 


530 

ASL 



1F8D: 

66 

10 

531 

ROR 

Base 



46 











I 




1F8F: 

A5 

ID 


532 


LDA 

Base-l-1 


1F91: 

29 

IF 


533 


AND 

#$1F 


1F93: 

OD 

OC 

03 

534 


ORA 

Page 


1F96: 

85 

ID 


535 


STA 

Base+1 


1F98: 

60 



536 


RTS 







537 









538 






539 





1F99 

A9 

IB 


540 

Quit 

LDA 

#ESC 

;Zeilenabstand auf 12 Bits 

1F9B 

20 

78 

lE 

541 


JSR 

Print 


1F9E 

A9 

32 


542 


LDA 

#'2' 


IPAO 

20 

78 

lE 

543 


JSR 

Print 


1FA3 

A9 

OA 


544 


LDA 

#LF 

;2 mal Zeilenvorschub 

1FA5 

20 

78 

lE 

545 


JSR 

Print 


1FA8 

A9 

OA 


546 


LDA 

#LF 


IFAA 

20 

78 

lE 

547 


JSR 

Print 






548 





IFAD: 

: 60 



549 


RTS 


;zurueck zu BASIC 





550 









551 



1000 

ST 


768; 

REM START 

1010 

CO 

- 

ST 

-1- 

00 

REM 

CONTROL CHARACTERS 

1020 

BY 

= 

ST 

-t 

02 

REM 

BYTES 

1030 

IM 

= 

ST 

-f- 

04 

REM 

IMPRESSION 

1040 

XO 

= 

ST 

-1- 

06 

REM 

EXCLUSIVE OR 

1050 

DI 

= 

ST 

-1- 

08 

REM 

DIRECTION 

1060 

FR 

= 

ST 

-H 

10 

REM 

FRAME 

1070 

PA 

= 

ST 

-f- 

12 

REM 

PAGE 

1080 

RF 

= 

ST 

-1- 

14 

REM 

REPEAT FACTOR 

1090 

RD 

= 

ST 

+ 

16 

REM 

REPEAT DISTANCE 

1100 

LE 

= 

ST 

-1- 

18 

REM 

LEFT 

1110 

RI 

- 

ST 

-1- 

20 

REM 

RIGHT 

1120 

TP 

= 

ST 

-1- 

22 

REM 

TOP 

1130 

BO 

= 

ST 

-1- 

24 

REM 

BOTTOM 

1140 

XF 

= 

ST 

+ 

26 

REM 

X FACTOR 

1150 

YF 

= 

ST 

+ 

28 

REM 

Y FACTOR 

1170 

TEXT : 

HOME 



1180 

PRINT ’ 

'Bild 

speichern ? (j/n)";: GET A$ 

1190 

IF 

(A$ 

< 

> 

"Y") 

AND (A$ < > "y") AND 


AND 

(A$ 

< 

> 

"j”) 

GOTO 1220 


1200 PRINT 

1210 PRINT CHR$ (4) ”BSAVE PICTURE, A$2000, L$2000'' 

1220 HOME : VTAB 22: INVERSE : PRINT "GRAPHIK HARDCOPY 
FUER EPSON DRUCKER": NORMAL 
1230 PRINT CHR$ (4) "BRUN PRINTHIRES" 

1240 HOME : VTAB (22) 

1250 PRINT "Graphik schon im Speicher ? (j/n)"; 

1260 GET A$ 

1270 IF (A$ = "N") OR (A$ = "n") GOTO 1470 
1280 IF (A$ = "Y") OR (A$ = "y") OR (A$ = "J") OR (A$ ^ 
"j") GOTO 1590 
1290 GOTO 1250 

1300 POKE - 16300,0: REM LOW PAGE 
1310 POKE - 16301,0: REM MIXED MODE 
1320 POKE - 16297,0: REM HIRE3 MODE 
1330 POKE - 16304,0: REM GRAPHICS MODE 
1340 HOME : VTAB (22) 

1345 FOR I = ST TO ST + 29: POKE 1,0: NEXT : REM CLEAR 
ALL PARAMETERS 

1350 GOSUB 2000: REM SET DEFAULT PARAMETERS 
1360 PRINT "Grundeinstellung ? (j/n)";: GET A$ 

1370 IF (A$ = "Y") OR (A$ = "y") OR (A$ = "J") OR (A$ = 
"j") GOTO 1860 
1380 TEXT 
1390 GOSUB 2150 
1400 GOSUB 2340 
1410 GOSUB 2420 
1420 GOSUB 2490 
1430 GOSUB 2560 
1440 GOSUB 2630 
1450 GOSUB 2700 
1460 GOTO 1860 
1470 HOME : VTAB (22) 

1480 PRINT "Diskette mit Graphikfiles einschieben": PRINT 
"und Taste druecken"; 


1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 


GET A$ 

TEXT 

PRINT 

PRINT CHR$ (4) "CATALOG" 

PRINT 

INPUT "Welche Graphik laden ? 
IF A$ = "" THEN A$ = "PICTURE" 
HGR 

HOME : VTAB (22) 


;A$ 


Profi Jl 

der Apple-Kompatible! 


64 KRAM, 

2 CPUs (6502 + 280A), 




Profi M, opt. wie Apple, inkl, 1 Floppy m, Controller 1998.- 
Profi II im Alu-Gehäuse, freistehende Tastatur m. 


Zehnerblock, 1 Floppy m. Controller. 2398.- 

dito, mit 2 Laufwerken ..3028.- 

dito, mit 2 Laufwerken a. 320 K. ... .. 3385.- 

dito, mit 2 Laufwerken a. 640 K. *..... 3728.- 

Alle Rechner im Alu-Geh. werden mit ca. SOOseit. deut¬ 
schem Handbuch geliefert! 

Aufpreis für 7,5-A-Schaltnetzteil ..50.- 

Weitere Modelle auf Anfrage! 

Erweiterungs-Karten, z. B. Pio/Centr./AD-DA-Wandler 

usw.*. a. Anfrage 

6 Monate Garantie! 


öorsrt)" dfctnmic 

Forther Hauptstraße 23, 8501 Eckental 2 
Telefon (091 26) 7419 


ELECTRONIC-VERTRIEB 

LÄCHELE 


CAD Hard- und Software • Vertrieb • 
Schulung • Beratung und eigener 
Service 

MITSUBISHI IBM EPSON 
GENIE 16 OLIVETTI APPLE 

EDV-Zubehör und Interface-Karten 
für APPLE + IBM 


Saarbrücker Str. 7 
Postfach 410350 
6800 MANNHEIM 31 
Telefon 0621/722275 


DB-MEISTER 

Adreß- und Schemabriefprogramm 

Der DB-Meister ist ein in Assembler ge¬ 
schriebenes, ungewöhnlich schnelles, un¬ 
kompliziertes und zugleich „ narrensicheres “ 
Adreß-, Datei- und Schemabriefprogramm. 
Technische Daten 

- Recordlänge bis zu 230 Zeichen 

- 560 bis 1000 Records pro Datendiskette 

- Maximal 25 Felder pro Record 

- Suche nach 3 Indexfeldern 

- Ausdruck der Dateien als Etiketten, Listen 
und Schemabriefe (mit Felder- und Tasta¬ 
tureinschüben an beliebigen Stellen des 
Formbriefes) 

- normal kopierbare Programmdiskette, un¬ 
terteilt in Hauptprogramme und diverse 
Hilfsprogramme 

- einsatzfähig auf Apple Ile, llc oder II Plus 
mit 2 Drives (1 Drive ebenfalls möglich) 

Gesamtpreis 290,- (2 Disketten + ge¬ 
drucktes Manual) 

U. Stiehl 

c/o Dr. A. Hüthig Verlag 
Postfach 10 28 69'6900 Heidelberg 
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! 


$1EA0: 78 

lE 

AD 

01 

03 

FO 

03 

20 

$1EA8: 78 

lE 

AD 

02 

03 

20 

78 

lE 

$1EB0: AD 

03 

03 

20 

78 

lE 

AD 

OE 

$1EB8: 03 

8D 

27 

03 

60 

AD 

10 

03 

$1EC0; AA 

AD 

11 

03 

A8 

DO 

03 

8A 

$1EC8: FO 

OB 

A9 

00 

20 

78 

lE 

CA 

$1ED0: DO 

FA 

88 

10 

F7 

60 

48 

A9 

$1ED8: IB 

20 

78 

lE 

A9 

33 

20 

78 

$1EE0: lE 

68 

20 

78 

lE 

60 

A9 

OD 

$1EE8: 20 

78 

lE 

A9 

OA 

20 

78 

lE 

$1EF0: 20 

92 

lE 

60 

A9 

IB 

20 

78 

$1EF8: lE 

A9 

4A 

20 

78 

lE 

A9 

01 

$1F00; 20 

78 

lE 

60 

AO 

00 

AD 

OC 

$1F08: 03 

84 

lE 

85 

IF 

A9 

FF 

4D 

$1F10: 06 

03 

91 

lE 

C8 

CO 

28 

90 

$1F18: F9 

A9 

BF 

20 

76 

IF 

AO 

00 

$1F20: A9 

FF 

4D 

06 

03 

91 

IC 

C8 

$1F28: CO 

28 

90 

F9 

A2 

00 

8A 

20 

$1F30: 76 

IF 

AO 

00 

Bl 

IC 

8D 

21 

$1F38: 03 

A9 

01 

4D 

06 

03 

30 

05 

$1F40: OD 

21 

03 

DO 

03 

2D 

21 

03 

$1F48: 8D 

21 

03 

AD 

21 

03 

91 

IC 

$1F50: AO 

27 

Bl 

IC 

8D 

21 

03 

A9 

$1F58: 40 

4D 

06 

03 

C9 

40 

DO 

05 

$1F60: OD 

21 

03 

DO 

03 

2D 

21 

03 

$1F68: 8D 

21 

03 

AD 

21 

03 

91 

IC 

$1F70: E8 

EO 

CO 

90 

B9 

60 

48 

29 

$1F78; CO 

85 

IC 

4A 

4A 

05 

IC 

85 

$1F80: IC 

68 

85 

ID 

OA 

OA 

OA 

26 

$1F88: ID 

OA 

26 

ID 

OA 

66 

IC 

A5 

$1F90: ID 

29 

IF 

OD 

OC 

03 

85 

ID 

$1F98: 60 

A9 

IB 

20 

78 

lE 

A9 

32 

$1FA0: 20 

78 

lE 

A9 

OA 

20 

78 

lE 

$1FA8: A9 

OA 

20 

78 

lE 

60 

00 

00 



Softbreaker 1.0 

Eine softwaremäßige interrupt-Utiiity 
für die Apple Ile 64K-Karte 

von U. Stiehl 

1984, Diskette und Manual, DM 48,- 
ISBN 3-7785-1022-3 

Softbreaker ist ein Assemblerprogramm, mit 
dessen Hilfe Programme, die sich von der 
64K-Karte (= Extended 80 Coiumn Card für 
den Apple Ile) starten lassen, unterbrochen, 
gespeichert, geladen und exakt an der Steile 
der Unterbrechung fortgeführt werden kön¬ 
nen. Dadurch ist es auch möglich, Siche¬ 
rungskopien von sogenannten kopierge¬ 
schützten Programmen herzustellen. 

Mit Softbreaker unterbrochene Programme 
werden komplett, d. h. die ganzen 64K ein¬ 
schließlich Language Card, in nur ca. 11 Se¬ 
kunden auf einer formatierten Diskette gesi¬ 
chert. 

Gerätevoraussetzung: Apple Ile mit 64K- 
Karte 

Hüthig Software Service, 

Postfach 10 28 69, D-6900 Heidelberg 


1580 PRINT CHR$ (4) "BL0AD":A$: REM LOW PAGE 

1590 POKE - 16300,0: REM LOW PAGE 

1600 POKE - 16301,0: REM MIXED MODE 

1610 POKE - 16297,0: REM HIRES MODE 

1620 POKE - 16304,0: REM GRAPHICS MODE 

1630 P = 0 

1640 POKE PA,0 

1650 HOME : VTAB (22) 

1660 PRINT "Ist dies das richtige Bild ? (j/n)"; 

1670 GET A$ 

1680 IF {A$ = "Y") OR {A$ = "y") OR (A$ = "J") OR (A$ = 
"j") GOTO 1300 

1690 IF (A$ = "N") OR (A$ = "n") GOTO 1710 

1700 GOTO 1630 

1710 HOME : VTAB (22) 

1720 PRINT "Wollen Sie die andere Graphikseite"; PRINT 
"sehen ? (j/n)"; 

1730 GET A$ 

1740 IF (A$ = "Y") OR (A$ = "y") OR (A$ = "J") OR (A$ = 
"j") GOTO 1770 

1750 IF (A$ = "N") OR (A$ = "n") GOTO 1840 
1760 GOTO 1710 

1770 POKE - 16299,0: REM HIGH PAGE 

1775 POKE - 1630.2,0: REM GRAPHICS ONLY 

1780 P = 1 
1790 POKE PA,1 
1800 GET A$ 

1810 PRINT 

1820 POKE - 16300,0: REM LOW PAGE 

1825 POKE - 16301,0: REM MIXED MODE 

1830 GOTO 1650 

1840 POKE - 16303,0: REM RESET TEXT 
1850 GOTO 1470: REM TRY AGAIN 
1860 POKE - 16302,0: REM GRAPHICS ONLY 
1870 IF P < >0 THEN POKE - 16299,0 

1880 POKE - 16297,0 

1890 POKE - 16304,0 

1900 & : REM CALL MACHINE ROUTINE ($1C0B) 

1910 TEXT 

1920 HOME : VTAB (22) 

1930 PRINT "Nochmal ? (j/n)"; 

1940 GET A$ 

1950 IF (A$ = "Y") OR (A$ = "y") OR (A$ = "J") OR (A$ = 
"j") GOTO 1240 

1960 IF (A$ = "N") OR (A$ = "n") GOTO 1980 

1970 GOTO 1920 

1980 HOME : END 

1990 REM ******************** 

2000 POKE CO, ASC ("K") 

2010 POKE BY,24: POKE BY -H 1,1: REM 280 BITS PER 
HORIZONTAL LINE 
2020 POKE RF,1 
2030 POKE RI,6 
2040. POKE RI + 1,39 
2050 POKE BO,191 
2060 POKE XF,1 
2070 POKE YF.l 
2080 RETURN 

2090 REM ******************** 

2100 PRINT.: PRINT "Welches Kommando: "; 

2110 GET C$: IF (C$ = " ") OR {C$ = CHR$ (13)) THEN C$ = 
" 1 " 

2120 IF VAL (C$) =0 THEN C$ = "1" 

2130 RETURN 

2140 REM ******************** 

2150 HOME 

2160 PRINT "<1> Normal density": PRINT 

2170 PRINT "<2> Dual density": PRINT 

2180 PRINT "<3> Double speed, dual density"; PRINT 

2190 PRINT "<4> Quadruple density": PRINT 

2200 PRINT "<5> CRT graphics": PRINT 

2210 PRINT "<6> Plotter graphics": PRINT 

2220 PRINT "<7> CRT graphics II": PRINT 

2230 POKE CO, ASC ("*") 

2240 GOSUB 2100 

2250 ON VAL (C$) GOTO 2260,2270,2280,2290,2300,2310,2320 

2260 POKE CO, ASC {"K"): RETURN 

2270 POKE CO, ASC ("L"): RETURN 

2280 POKE CO, ASC ("Y"); RETURN 

2290 POKE CO. ASC ("Z"): RETURN 

2300 POKE CO + 1,4: RETURN 

2310 POKE CO -H 1,5: RETURN 

2320 POKE CO + 1,6: RETURN 

2330 REM ******************** 

2340 HOME 

2350 PRINT "<1> Single strike": PRINT 
2360 PRINT "<2> Double strike": PRINT 
2370 PRINT "<3> Quadruple strike": PRINT 
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2380 

GOSUB 2100 

2750 

INPUT "Wiederholungsdistanz: ”;I 


2390 

POKE IM, VAL (C$) - 1 

2760 

I = ABS (I) : IF I > 

255 THEN 1=0 


2400 

RETURN 

2770 

POKE RD,I 



2410 

REM ***********¥******** 

2780 

INPUT "Linker Rand 

: ";I 


2420 

HOME 

2790 

I = ABS (I): IF I > 

279 THEN 1=0 


2430 

PRINT "<1> Positiv”: PRINT 

2800 

POKE LE + 1, INT (I 

/ 7) 


2440 

PRINT ”<2> Negativ”: PRINT 

2810 

POKE LE,I - INT (I 

/ 7) * 7 


2450 

GOSUB 2100 

2820 

INPUT "Rechter Rand 

: ";I 


2460 

IF C$ = ”2” THEN POKE XO,255 

2830 

I = ABS (I) : IF I > 

279 THEN I = 279 


2470 

RETURN 

2840 

POKE RI + 1, INT (I 

/ 


2480 

REM m^*^**************** 

2850 

POKE RI,I - INT (I 

/ 7) * 7 


2490 

HOME 

2860 

INPUT "Oberer Rand 

: ";I 


2500 

PRINT ”<1> Horizontal”: PRINT 

2870 

I = ABS (I): IF I > 

191 THEN 1=0 


2510 

PRINT ”<2> Vertikal”: PRINT 

2880 

POKE TP,I 



2520 

GOSUB 2100 

2890 

INPUT "Unterer Rand 

: ";I 


2530 

POKE DI, VAL (C$) - 1 

2900 

I = ABS (I) : IF I > 

191 THEN I = 191 


2540 

RETURN 

2910 

POKE B0,I 



2550 

REM **■**##***#********* 

2920 

INPUT "X-Faktor 

: 'M 


2560 

HOME 

2930 

I = ABS (I): IF I > 

31 THEN 1=1 


2570 

PRINT ”<1> Rahmen”: PRINT 

2940 

IF I = 0 THEN 1=1 



2580 

PRINT ”<2> Kein Rahmen”: PRINT 

2950 

POKE XF,I 



2590 

GOSUB 2100 

2960 

INPUT "Y-Faktor 

: ”;I 


2600 

POKE FR, VAL (C$) - 1 

2970 

I = ABS (I) : IF I > 

31 THEN 1=1 


2610 

RETURN 

2980 

IF I = 0 THEN 1=1 



2620 

REM ^**r^*******^******** 

2990 

POKE YF,I 



2630 

HOME 

3000 

REM ******************^ilf 


2640 

PRINT ”<1> Seite 1”: PRINT 

3010 

IF PEEK (DI) = 0 THEN BT = PEEK (XF) * 

( PEEK (RI) 

2650 

PRINT ”<2> Seite 2”: PRINT 


+ PEEK (RI + 1) ¥ 7 

- PEEK (LE) - PEEK 

(LE + 1) * 

2660 

GOSUB 2100 


7+1) 



2670 

POKE PA, VAL (C$) - 1 

3020 

IF PEEK (DI) = 1 THEN BT = PEEK (YF) # 

( PEEK (BO) 

2680 

RETURN 


+ PEEK (BO + 1) +7 

- PEEK (TP) - PEEK 

(TP + 1) + 

2690 

REM ***##¥*************# 


7+1) 



2700 

HOME 

3030 

BT = (BT + PEEK (RD; 

1 ) PEEK ( RF ) 


2710 

INPUT "Wiederholungsfaktor : ”;I 

3040 

POKE BY + 1, INT (BT / 256) 


2720 

I = ABS (I) : IF I > 255 THEN 1=1 

3050 

POKE BY,BT - INT (BT / 256) + 256 


2730 

IF I = 0 THEN 1=1 

3060 

RETURN 



2740 

POKE RF,I 






“pAPPLEfj“ Sie Ihren Drucker auf! 

Kennen Sie das nicht auch?! 

Sie brauchen ein Zeichen und es ist nicht da. 

® = 0 ^ < ? S J'Xyjdx y <ri 

" Bl S [X Ä i %r 

Der DMP Charger liefert die Lösung. 

Mühelos können Sie Zeichen selbst erstellen und 
zum Apple Imagewriter oder DMP übertragen. 
Die Zeichen sind dann im Drucker gespeichert. In 
Ihrem Textprogramm stehen diese Zeichen mit 
Hilfe einer ESCAPE-Sequenz zur Verfügung. 
Das Programm arbeitet auf allen Apple//Typen 
und Kompatiblen (64 K). 

Preis: DM 198,- inci. MwSt. und ausf. Handbuch 
Übungsdiskette für ein Zeichen; DM 12,50 
Versand gegen Vorauskasse oder NN durch: 

Norbert Hunstig 

M Nottulner Landweg 81 
D-4400 Münster 
m 02534/7449 

Bitte besuchen Sie unseren Stand auf der Appie-Expo im 
Rahmen der Orgatechnik in Köin. 
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Die aktuelle Fachzeitschrift für 

Chemiker, Ph^ter, Mediziner, ingerieure 
und Naturwissenschafiier 



Bestellcoupon 


ausschneiden und einsenden an: 


AKTUELLE NACHRiCHTEN 


ANKÜNDIGUNGEN von 
VERANSTALTUNGEN 

mit Schwerpunkt auf Fortbildungs¬ 
veranstaltungen 


PROGRAMME 

Programme für Labor¬ 
anwendungen werden voll¬ 
ständig aufgelistet und 
erläutert 


WISSENSCHAFTLICHE 

ORIGINALBEITRÄGE 

und Kurzmitteilungen über den 
Einsatz von Computern im Labor- 
Anwenderbereich 


BUCHBESPRECHUNGEN 
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SERIEN 

z.Zt. laufen Serien über Interfacing, 
Personal Computer im Labor, 
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CAL - Computer-Anwendung im Labor, Vertriebsservice, 
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□ 
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MuscfiimM 


Turbo-Pascal 
Schritt für Schritt 


Dr. Ekkehard Kaier 


Das TURBO-PASCAL von „Borland Inter¬ 
national“ zeichnet sich durch einfache 
Handhabung, Schnelligkeit und einen 
günstigen Preis aus. Mit dem folgenden 
Artikel wenden wir uns insbesondere an 
den „PASCAL-Einsteiger“. 

1. Programmerstellung in 11 
Schritten 

Voraussetzung: CP/M gestartet, TURBO- 
Diskette Seite 1 in Laufwerk A: eingelegt, 
am Bildschirm steht das CP/M-Promptzei- 
chen. 

Schritt 1: Installation des Systems durch 
FileTINST 

- TINST eintippen, um das Installations- 
programm zu starten. 


- S eintippen für S)creen Installation. 
Dann eine der im Menü gezeigten Num¬ 
mern eingeben, z.B. 26 für Zenith. 

- Eine C)ommand Installation ist bei der 
für den Apple I! gelieferten Diskette nur 
erforderlich, wenn die Steuerkommandos 
für den Editor geändert werden sollen. 

- Mit Q für Quit das Programm TINST 
verlassen. 

Schritt 2: System aktivieren durch File 
TURBO 

- TURBO eintippen, um das Minimal-Sy- 
stem mit Editor, Compiler und Run-Time- 
Bibliothek zu laden. 

- Frage „Include error messages (Y/N)?“ 
mit „N“ beantworten. Damit werden für 
Fehler nur deren Nummern, nicht aber 
deren Texte genannt (bei Antwort „Y“ 
würde das File TURBO.MSG geladen, was 
1.5 KBytes an Platz kostet). 

- Am Bildschirm steht das folgende 
Hauptmenü: 

Logged drive: A 
Work file: 

Main file: 

Edit Compile Run Save 
eXecute Dir Quit Compiler Options 

Text: Obytes (71F1-71F1) 

Free: 22036 bytes (71F2-C806) 

Angeboten werden die 11 Befehle L, W, 
M, E, C, R, S, X, D, Q und 0. Durch 
Eintippen dieser Buchstaben werden sie 
ausgeführt. 

Schritt 3: Workfile benennen durch Befehl 
W 

- Im Hauptspeicher wird eine Arbeitsdatei 
(Workfile) verwaltet, auf die sich Eingeben 
(Edit bzw. E), Übersetzen (Compile bzw. 
C), Ausführen (Run bzw. R) und Spei¬ 
chern (Save bzw. S) beziehen. Das Work¬ 
file (es gibt nur eines) ist derzeit leer (sie¬ 
he Hauptmenü oben). 

- W für Workfile eintippen und auf die 
Frage „Work file name:“ den Programm¬ 


namen ERSTPROG eingeben. Unser er¬ 
stes Programm soll also ERSTPROG 
heißen. 

- Die Ausgabe von „Loading A:ERST- 
PROG.PAS“ und „New File“ besagt, daß 
im Laufwerk A: derzeit kein File dieses 
Namens gefunden wurde und deshalb ein 
neues File im Hauptspeicher eingerichtet 
wird. 

- Nach der Eingabe von Return erscheint 
wieder das Hauptmenü. Freier Speicher¬ 
platz nun 22035 Bytes (ein Byte wurde für 
den Eintrag des Programmnamens ver¬ 
braucht). 

Schritt 4: Programmtext eingeben durch 
Befehl E 

- E eintippen: Der Editor wird aufgerufen, 
um die Eingabe unseres Programms zu 
überwachen. 

- Oben am Bildschirmrand erscheint diese 
Statuszeile: 

Line 1 Col 1 Insert Indent A:ERST- 
PROG.PAS 

Nach Line bzw. Col wird die Zeilen- bzw. 
Spaltennummer des Cursors angezeigt. 
„Insert“ heißt, daß unsere Texteingabe 
eingefügt wird (am Ende oder dazwi¬ 
schen). Tippen wir CtrI-V, erscheint statt 
„Insert“ der Hinweis „Overwrite“: Unsere 
Texteingabe überschreibt dann den bishe¬ 
rigen Text. Erneutes Tippen von Ctri-V 
wechselt wieder zu „Insert“. 

- Wir tippen den folgenden Programmtext 
mit 10 Zeilen ein: 

PROGRAM ERSTPROG: 

VAR 

ZAHL: INTEGER; 

BEGIN 

WRITELN ('Welche Zahl?'); 

READLN (ZAHL); 

ZAHL:=ZAHL-h5: 

WRITE ('Erhöhte Zahl: '); 

WRITELN (ZAHL) 

END. 

Wichtig: „;“ am Zeilenende, einfache statt 
doppelte Anführungszeichen sowie Punkt 
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nach END. Am Ende jeder Zeile Return 
tippen. 

- Abschließend verlassen wir den Editor 
durch Eintippen von CtrI-K CtrI-D. Am 
Bildschirm steht wieder das Hauptmenü 
(ggf. nochmals Return tippen). 

- Ein Tip: Falls ein Apple II benutzt wird, 
bei dem die Umlaute ä, ö, ü und das ß über 
CtrI-Tasten erzeugt werden, sind diese 
CtrI-Tasten zur Steuerung des Editors na¬ 
türlich gesperrt. 

Oft zählt dazu auch das CtrI-K für die 
„eckige Klammer“, in diesem Fall müssen 
Sie über das Installationsprogramm TINST 
die Kommandos neu festlegen (z.B. CtrI-H 
CtrI-D zum Verlassen des Editors anstelle 
von CtrI-K CtrI-D). 

- Unten im Hauptmenü wird jetzt ange¬ 
zeigt, daß sich der im Hauptspeicher freie 
Speicherplatz vermindert hat: 

Text: 166 bytes (71 Fl-7297) 

Free: 21870 bytes (7298-C806) 

Schritt 5: Workfile auf Diskette speichern 
durch Befehl S 

- Bei Stromausfall wäre alle Arbeit um¬ 
sonst. Durch Eintippen des Befehls S 
speichern wir den Inhalt des Workfiles un¬ 
ter seinem Namen ERSTPROG auf Disket¬ 
te ab. 

- Die Ausgabe „Saving A:ERSTPROG- 
.PAS“ besagt, daß das Programm ERST¬ 
PROG als Pascal-Quellenprogramm (des¬ 
halb die Dateitypbezeichnung PAS) in 
Laufwerk A: abgespeichert worden ist. 

Das Quellenprogramm nennt man auch 
Quellcode, Textfile oder Sourcefile bzw. 
Source. 

- Am Bildschirm steht wieder das Haupt¬ 
menü. 

Schritte: „Memory to Memory“-Überset- 
zung durch Befehl 0 

- Das als Quellcode im Hauptspeicher 
(genauer: im Workfile) stehende Pro¬ 
gramm ERSTPRQG muß nun in einen Qb- 
jektcode übersetzt bzw. compiliert wer¬ 
den. Erst danach kann das Programm aus¬ 
geführt werden. 

- Wir tippen den Befehl C ein, und der 
Compiler als Übersetzungsprogramm 
meldet sich wie folgt: 


Compiling 
10 lines 

Code: 125 bytes (7299-7316) 
Free: 22762 bytes (7316-CCOO) 
Data: 6 bytes (CC00-CC06) 


Es wurden also alle 10 Programmzeilen 
fehlerlos übersetzt. Die Angaben in Klam¬ 
mern geben die entsprechenden Adres¬ 
sen im RAM in hexadezimaler Schreibwei¬ 
se wieder. 

- Im Hauptspeicher befindet sich nun ne¬ 
ben dem Quell- auch das übersetzte Qb- 
jektprogramm (auch Qbjektcode, Zielpro¬ 
gramm oder Maschinencode genannt). 
Deswegen die Bezeichnung „Memory to 
Memory“-Übersetzung (Memory für 
Hauptspeicher). 


Schritt 7: Programmausführung durch Be¬ 
fehl R 

- Nach Eingabe von R (für Run) wird der 
übersetzte Qbjektcode zur Ausführung 
gebracht: 

Running 
Welche Zahl? 

1000 

Erhöhte Zahl: 1005 

- Wir geben nochmals R ein: 

Running 

Welche Zahl? 

2 

Erhöhte Zahl: 7 

- Das Programm kann also beliebig oft 
mittels R ausgeführt werden. 

- Findet der Befehl R)un kein Übersetzer- 
Programm, so leitet er automatisch eine 
Übersetzung (vgl. Schritt 6) ein. 


Schritt 8: Inhaltsverzeichnis durch Befehl 
D 

- Nach Eingabe von D (für Directory) wird 
folgendes Inhaltsverzeichnis der auf Dis¬ 
kette gespeicherten Files ausgegeben: 

TURBO OVR 
TURBOMSG OVR 
TINST COM 
TINSTMSG OVR 
TURBO COM 
TINST DTA 
ERROR DOC 
TUST COM 
ERSTPROG PAS 
ERSTPROG BAK 
Bytes Remaining on A: 39K 

- COM bedeutet „COMmand File“, OVR 
„OVeRlay“, DTA „DaTA". Das Programm 
ERSTPROG ist zweimal gespeichert: mit 
der Filetyp-Bezeichnung PAS für „PAS- 
cal-Quellcode“ und BAK für „BAcK-up- 
Version des Quellenprogramms“. Nach 
jeder Eingabe des Befehls S (für Save) 


wird das aktuelle Workfile als „...PAS“ und 
das bisher auf Diskette abgelegte Workfile 
zur Sicherheit als „...BAK“ gespeichert. 

- Das Inhaltsverzeichnis zeigt uns, daß 
das übersetzte Workfile (es trägt den Na¬ 
men ERSTPROG.COM) noch nicht auf 
Diskette gesichert worden ist. Der Befehl 
S)ave speichert somit nur das Queilpro- 
gramm. 

Schritt 9: Compiler-Option ändern durch 
Befehl 0 

- Nach Eintippen des Befehls 0 (für 
„Compiler Options“) erhalten wir folgen¬ 
des Menü 

compile Memory 

Com-file 

cHn-file 

Find run-time error Quit 

mit den 5 Options-Befehlen M, C, H, F und 

Q. 

- Der Pfeil nach „compile“ weistauf „Me¬ 
mory“: Das übersetzte Programm wird 
stets im Hauptspeicher abgelegt und 
durch den Befehl R)un dort aufgerufen. 
Man nennt diese Betriebsart „Alles im 
RAM“, „In Memory“ oder „Memory to 
Memory“ und benutzt sie während der 
Programmerstellung (siehe Schritt 6). 

- Wir geben den Befehl C ein: Damit wird 
das übersetzte Programm - also das Ma¬ 
schinenprogramm als Objektcode - vom 
Compiler automatisch auf Diskette gespei¬ 
chert, und zwar unter dem Namen des 
Workfiles mit der Typbezeichnung COM. 
Man benutzt diese Betriebsart „ Memory to 
Diskette“ nur dann, wenn alle Testläufe 
fehlerfrei abgeschlossen sind. 

- Die Meldung 

Start address: 1076 (min 1D76) 

End address: C953 (max CC06) 
informiert über Start- und Endadresse des 
compilierten Programms. 

- Mit Q kehren wir wieder ins Hauptmenü 
zurück. 

Schritt 10: „Memory to Diskette “-Über¬ 
setzung durch Befehl C 

- Durch Eingabe von C (für Compile) 
übersetzen wir das Workfile erneut. Die 
Compiler-Meldung 

Compiling A:ERSTPROG.COM 
10 lines 

Code: 125 bytes (1D76-1DF3) 

Free: 43738 bytes (1DF3-C8CD) 

Data: 134 bytes (C8CD-C953) 
besagt, daß nun (anders als bei der „Alles 
im RAM “-Übersetzung von Schritt 6) der 
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erzeugte Code auf Laufwerk A: unter dem 
Namen ERSTPROG.COM gespeichert 
wurde. 

- Automatische Rückkehr ins Hauptmenü. 

- Zur Kontrolle lassen wir uns mit D das 
Directory zeigen. Drei „Versionen“ unse¬ 
res Programms ERSTPROG erscheinen: 

A; ERSTPROG PAS: ERSTPROG BAK: 
ERSTPROG COM 

Bytes Remaining on A: 31 K 

- ERSTPROG.PAS wurde zuletzt mittels 
S)ave gespeichert und ERSTPROG.BAK 
durch das vorangegangene S)ave. ERST¬ 
PROG.COM hingegen wurde durch den 
Befehl C)ompile (mit Com-Option) auf 
Diskette gespeichert. 

Schritt 11: Programm kopieren in CP/M- 
Ebene 

- Mit Q verlassen wir das TURBO-System, 
um mit dem Befehl PIP das soeben erstell¬ 
te Programm auf eine Anwenderdiskette 
zu kopieren. 

- Mittels PIP B:=A:ERSTPROG.PAS ko¬ 
pieren wir das Quellprogramm von der 
Systemdiskette In Laufwerk A: auf eine 
(zuvor durch FORMAT leer formatierte) 
Anwenderdiskette. 

Mittels PIP B:=A:ERSTPROG.COM ko¬ 
pieren wir den Objektcode. 

- Mittels ERA A:ERSTPROG.^if löschen wir 
alls drei Versionen unseres ersten Pro¬ 
gramms auf der TURBO-Systemdiskette, 
um Platz zu schaffen für weitere Entwick¬ 
lungen. 

Ein Löschen von Files ist im TURBO-Sy- 
stem selbst (noch?) nicht möglich. 

Nach dem Durchlaufen der Schritte 1 bis 
11 liegt unser erstes Anwenderprogramm 
namens ERSTPROG getestet auf Diskette 
vor. Soll ein weiteres Programm erstellt 
werden, kehren wir zu Schritt 3 zurück, um 
das Workfile neu zu benennen. 

2. TURBO-PASCAL und UCSD- 
PASCAL 

Das „Apple II Pascal 1.1 “ bzw. das 
„UCSD p System IV.O“ sind die auf dem 
Apple II mit Abstand am weitesten verbrei¬ 
teten PASCAL-Systeme. Im folgenden 
stellen wir die wesentlichen Unterschiede 
zum TURBO-PASCAL gegenüber; 

a) Betriebssystem: 

TURBO wird in verschiedenen Versionen 
angeboten. Auf Apple II arbeitet es unter 
CP/M 2.2. Eine Z-80-Karte ist somit erfor¬ 
derlich. UCSD beinhaltet ein eigenes Be¬ 
triebssystem mit abgeschlossener Pro¬ 
grammierumgebung. 


b) Übersetzung der Programmiersprache; 
TURBO hat einen Native-Code-Compiler, 
der den Programmtext als Quellcode in 
direkten Maschinencode übersetzt. Des¬ 
halb die unterschiedlichen TURBO-Ver- 
sionen für Z-80, CP/M 86, MS-DOS usw. 
UCSD dagegen erzeugt aus dem Quellco¬ 
de (Textfile genannt) als Zwischenform 
den p-Code (Codefile genannt), der erst 
während der Ausführung interpretiert wird. 
P-Code kann als Maschinencode für eine 
virtuelle Maschine aufgefaßt werden; der 
Apple II wird nur als Gast-Computer (sog. 
Host) angesehen. 

c) Systemumfang: 

Das TURBO-System findet auf einer (z.B. 
für IBM PC) bzw. auf zwei Disketten (z.B. 
Z-80-Version für Apple II) Platz. Das 
UCSD-System umfaßt drei oder mehr Dis¬ 
ketten (z.B. SYSTEM1:, SYSTEM2:, 
CODE: und UTiLITY: beim UCSD IV.O). 

d) Anzahl der Diskettenlaufwerke: 

TURBO kann mit einem Laufwerk betrie¬ 
ben werden. Das (Minimal-) System mit 
Compiler, Editor und Run-Time-Bibliothek 
beansprucht nur ungefähr 28 KBytes (File 
TORBO.COM). Für UCSD sind zwei Lauf¬ 
werke unbedingt erforderlich. 

e) Editor: 

Der TURBO-Editor orientiert sich an der 
Wordstar-Bedienung. Die Editor-Steuerta¬ 
sten können jedoch leicht angepaßt wer¬ 
den: Falls man z.B. das von Applesoft- 
BASIC her gewohnte CtrI-l für „nach 
oben“ beibehalten möchte, kann man dies 
über das Installationsprogramm TINST 
leicht (da menügesteuert) tun (das CtrI-E 
vom Wordstar in Ctrl-l austauschen). Der 
UCSD-Editor arbeitet weitgehend ohne 
CtrI-Taste (Ausnahme: CtrI-C für „Ende“). 

f) Dateien auf Diskette: 

TURBO kann Dateien (Files) auf Diskette 
erzeugen, nicht aber löschen. Zum Lö¬ 
schen muß TURBO mit Q verlassen wer¬ 
den, um dann auf der CP/M-Ebene die 
entsprechenden Files zu löschen und 
dann wieder ins TURBO-System zurück¬ 
zukehren. In UCSD können Dateien er¬ 
zeugt und gelöscht werden (über den FI- 
ler). 

g) Anweisungen von PASCAL: 

Beide Sprachen gehen über _das Stan- 
dard-PASCAL (Jensen/WIrth) hinaus und 
ähneln sich im Befehlsvorrat (z.B. Daten¬ 
typ STRING) weitgehend. UCSD kennt 
GET und PUT für den Dateizugriff, wäh¬ 
rend TURBO dafür die erweiterten Funk¬ 
tionen READ und WRITE vorsieht. 


h) Arbeitsgeschwindigkeit: 

Da TURBO echten Maschinencode er¬ 
zeugt, arbeitet es wesentlich schneller als 
UCSD, das den erzeugten p-Code noch 
interpretieren muß. 

Die Gegenüberstellung zeigt, daß TUR¬ 
BO-PASCAL zumindest für den Einsteiger 
und Preisbewußten geeignet Ist, PASCAL 
zu erlernen. 

3. TURBO-PASCAL und BASIC 

BASIC ist für die meisten die Einstiegspra¬ 
che. Werden die Programme umfangrei¬ 
cher, wünscht man sich PASCAL: Das 
selbstdokumentierende Listing und der 
modulare, strukturierte Aufbau erleichtern 
die Problemlösung ganz wesentlich. Daß 
dieser Wunsch oft unerfüllt bleibt, liegt we¬ 
niger an der Programmiersprache selbst 
als an der umständlicheren Handhabung 
des Systems; 

Das BASIC-Programm tippt man einfach 
ein, um es nach Testlauf und Korrektur auf 
Diskette zu speichern. Der BASIC-Inter¬ 
preter „übersetzt“ das Programm dabei 
bei jedem Lauf neu. 

Zur Eingabe des PASCAL-Programms 
hingegen muß man einen Editor als Über¬ 
wachungsprogramm laden. Später muß 
man einen Compiler als Übersetzungspro¬ 
gramm aktivieren, der aus dem Pro¬ 
grammtext einen Programmcode in Ma¬ 
schinensprache erzeugt. Dann erst kann 
das Programm ausgeführt werden. Tritt 
nun ein Fehler auf (bei der Übersetzung 
und/oder der Ausführung), muß man wie¬ 
der den Editor laden, um den Programm¬ 
text zu korrigieren. Diese Arbeitsfolge 
„Editieren - Compilieren - Ausführen“ und 
das damit verbundene Aufrufen von Sy¬ 
stemprogrammen ist bei vielen PASCAL- 
Systemen sehr kompliziert (z.B. bei PAS¬ 
CAL MT-h), bei nur wenigen Systemen 
relativ schnell erlernbar (z.B. bei UCSD- 
PASCAL). Bei TURBO-PASCAL dagegen 
ist der Umgang mit dem System fast so 
einfach wie mit Applesoft-BASIC oder 
MBASIC unter CP/M. Zudem kommt man 
mit einem Laufwerk aus, da auf der Disket¬ 
te das gesamte TURBO-System mit Com¬ 
piler, Editor und Workfile (Programm als 
unübersetzter Text sowie als übersetzter 
Code) Platz findet. Aus diesen Gründen 
macht es TURBO-PASCAL auch dem zö¬ 
gernden BASIC-Anhänger leicht, mit PAS¬ 
CAL zu arbeiten. 







ProDOS-Patch 
für geänderte 
FS-ROMs 



Das unveränderte ProDOS-Betriebssy- 
stem 1.0.1 läuft nur auf den Originalgerä¬ 
ten Apple II Plus, Apple Ile und Apple llc. 
Bei Apple-Nachbauten sind je nach Ände¬ 
rung des FS-ROMs = des MonItor-ROMs 
= des Bereiches $F800-$FFFF mehr oder 
weniger umfangreiche Modifikationen 
(„Patches“) des Betriebssystems erfor¬ 
derlich. 


Wer sich hingegen z.B. in seinen Original 
Apple II Plus einen Klelnschreibumrüst- 
satz mit entsprechend geändertem F8- 
ROM hat einbauen lassen, wird unter Um¬ 
ständen ebenfalls zu seiner Überraschung 
feststellen, daß ProDOS nicht bootet. Dies 
rührt u.a. daher, daß Applehändler oder 
deren Vorlieferanten im F8-ROM oft mehr 
ändern, als erforderlich ist. Normalerweise 
müßte zur softwaremäßigen Realisierung 
der Kleinschreibung nur die Stelle $FD82 
geändert werden: 

Original: $FD82: 29 DF AND #$DF 
Modifiziert: $FD82: 29 FF AND #$FF 
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Dieser Patch, der sich auch im Apple Ile 
ROM befindet und deshalb nicht überprüft 
wird, bewirkt, daß über die Tastatur einge¬ 
gebene Kleinbuchstaben nicht in Groß¬ 
buchstaben umgewandelt werden. Pro- 
DOS prüft u.a. das Versionsbyte bei Spei¬ 
cherstelle $FBB3 (enthält $06 für Apple Ile 
und llc sowie $EA für II Plus) sowie den 
Namen „APPLE“ einschließlich Klammern 
ab $FB09. Im letzteren Fall wären z.B. 
zulässig; „APPLE“, „Apple“, „ApPLE“, 
also auch gemischte Groß- und Klein¬ 
schreibung, nicht dagegen „EXPL1“ o.ä., 
wie man es oft in illegalen Nachbauten 
findet. 

Wer besagte Schwierigkeiten auf einem 
Apple ll Plus mit Kleinschreibumrüstsatz 
hat, der modifiziere zunächst das BASIC- 
.SYSTEM auf einem Apple Ile wie folgt: 

1 . BLOADBASIC.SYSTEM,A$2000,TSYS 

2. CALL-151 

3. 2054: A9 62 8D 98 BF 

4. CtrI-C 

5. UNLOCK BASIC.SYSTEM 

6. BSAVE BASIC.SYSTEM, A$2000, 
L$2800, TSYS 

7. LOCK BASIC.SYSTEM 

Die hexadezimale Folge A9 62 8D 98 BF 
besagt LDA #$62 STA $BF98. $62 steht 
für Apple ll Plus mit 64K RAM und 80- 
Zeichenkarte. 

Falls das BASIC.SYSTEM gleich gar nicht 
eingeladen wird, muß auch das später in 
der Language Card befindliche PRODOS 
gepatcht werden: 

1. BLOAD PRODOS, A$2000, TSYS 

2. CALL-151 


3. 23B4: A2 EA EA 

4. 2659: EA EA 

5. CtrI-C 

6. UNLOCK PRODOS 

7. BSAVE PRODOS, A$2000, L$3C00, 
TSYS 

8. LOCK PRODOS 

Der Patch bei $23B4 ersetzt LDA $FBB3 
durch LDX #$EA, wobei $EA das Erken¬ 
nungsbyte für den Apple II Plus darstellt. 
Der Patch bei $2659 legt die Prüfroutine 
für den Firmennamen „APPLE“ lahm. 

Normalerweise würde man zur Ermittlung 
seines rechtmäßigen Firmennamens den 
String „APPLE“ im Programm „PRO¬ 
DOS“ ablegen und dann mit der entspre¬ 
chenden F8-ROM-Stelle ab $FB09 direkt 
vergleichen, z.B. durch CMP $FB09, X 
unter Berücksichtigung der möglichen 
Kleinschreibung von „Apple“ statt „AP¬ 
PLE“. Statt dessen greift der Programmie¬ 
rer der Firma Apple zu folgenden Maß¬ 
nahmen: 

a) Zunächst wird das Teilprogramm 
$2401-$2447 in die Zero-Page ab $0080 
geschoben. 

b) Dann werden in die Speicherstellen 
$000A-$000B die Werte $0A und $00 ge- 
pokt, also so: 

OOOA: OA 00 

c) Nun wird die sich ursprünglich ab 
$243A befindliche Subtraktionsroutine 
aufgerufen, die $0500 von $000A mit Un- 
derflow abzieht, was $FB09 ergibt. 

d) Schließlich wird ab $263D mit LDA 
($0A), Y der String ab $FB09 geladen und 
aufgrund undurchsichtiger Operationen 
geprüft. 


Wie gesagt, normalerweise. Daß man zu 
derart pathologisch erscheinenden Mani¬ 
pulationen greifen muß, um seinen recht¬ 
mäßigen Firmennamen vor Nachbauern zu 
schützen, zeigt, daß die Zeiten alles ande¬ 
re als normal sind. Um dies besser zu 
verstehen, muß man Beispiele aus ande¬ 
ren Bereichen des Urheber- und Namens¬ 
rechts zitieren. Nehmen wir an, Goethe 
hätte In panischer Angst gelebt, daß Schil¬ 
ler Goethes „Faust“ unter Schillers Na¬ 
men hätte veröffentlichen können. Was 
hätte er dann In seiner krankhaften Phobie 
tun können? Seinen Namen chiffriert auf 
den „Faust“ drucken lassen? Oder über¬ 
haupt den ganzen „Faust“ chiffrieren? All 
dies mutet wenig normal an und belegt auf 
das anschaulichste, daß die Mikrocompu¬ 
ter-Industrie noch lange nicht erwachsen 
geworden ist. Nachbauer, die das Wort 
„APPLE“ durch „EXPL1“ o.ä. ersetzen, 
wecken die Erinnerung an die Kolonialge¬ 
schichte von dem Neger auf der Baum- 
wollplantage, der einen Zylinder auf das 
Glasauge seines Vorarbeiters legte, damit 
er von ihm nicht gesehen werden konnte. 
Offenbar fehlt vielen Nachbauern die Ein¬ 
sicht, daß der Inhalt des F8-ROMs, falls er 
ein urheberrechtlich schutzfähiges Werk 
darstellt, nicht seine Schutzfähigkeit da¬ 
durch verliert, daß man den Namen „AP¬ 
PLE“ entfernt, wie ja auch Goethes 
„Faust“ weiterhin Goethes „Faust“ bleibt, 
auch wenn man „GOETHE“ auskratzt 
oder durch „Exemplar 1 “ ersetzt... 

US 




Wild-Karte 139,-D 

»(kfiacl^tiescliüuifi Piogrammc) 




Apple II, II e 


Z-80-Karte 


99,-DM 


Disk-Interface 

109,-DM 

PAL-Karte 

109,- DM 

16K-RAM-Karte 

109,-DM 

RS 232-Karte 

119,-DM 

Eprommer (4, 8, 16 K) 149,—DM 

128K-RAM-Karte 

488,-DM 

AD-DA-Karte 

119,- DM 


80 Zeichen-Karte 

(Autoswitch) 

159,-DM 

Centronics-Interfacel 

129,-DM 

(mit Kabel für EPSON) 


6809-Karte _ 

399,-DM 

8088-Karte 

759 -DM 

Speech-Karte 

88,-DM 



Die... Kompatiblen 

Komp 48 995,—DM 


4B K. 650g ohne Firmware 


Komp 64 

64 K, 6502, z-eo. ISer^BloCk 
ohne Firmware 


----- 

Komp 64 S 1330,-DM ’ 

wie Komp 64, jedoch mit abgesetzter 
Tastatur mit 188 Funktionen_ 


Motherboard 48 K 

8 Slots, alle IC‘s gesockelt 
ohne Firmware, fertig geprüft 


; Motherboard 64 K 639,—DM 
wie oben, mit 6502 und KlauS Jeschke 

Mm Hard-, Software 

f/finti il tun I IT I I l Im Birkenfeld 3m 

Alle Preise inklusive Mehrwertsteuer. 6 Monate I 1 l 6233 Kelkheim 

Geraniie Versand erfolgt per NN oder Vorkasse | | Y \ v 1 ^ (06198) 75 23 | 
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Patch für 

PRODOS.INIT 80 Spuren 


Um mit „PRODOS“ eine Diskette forma¬ 
tieren zu können, gibt es zwei Möglich¬ 
keiten: 

a) den „FILER“ von Apple oder 

b) das Programm „PRODOS.INIT“ von 
U.Stiehl verwenden. 


Hans-Georg Hüneke 


Das Programm unter Punkt (a) hat leider 
den Nachteil, daß nur 35-Track-Disketten 
formatiert werden können. Das Programm 
unter Punkt (b) - gelistet in „Apple Pro- 
DOS, Band 1 “ - kann zwar Disketten bis 
zu 255 Tracks initialisieren, konfiguriert 
diese Disketten jedoch ab 64 Spuren nicht 
mehr einwandfrei. Es hat sich nämlich in 
der Routine zur Umrechnung derTracks in 
Blocks ein kleiner Fehler eingeschlichen. 
Verwendet man die Original-Routine aus 
dem genannten Buch, dann kann man, wie 
auch dort erwähnt, keine Disketten mit 
mehr als 64 Spuren oder 512 Blocks anle- 
gen. Das nun unten aufgeführte Assem¬ 
blerprogramm ist jetzt in der Lage, eine 
Diskette mit 2040 Blocks (1020K) anzule¬ 
gen. Vorausgesetzt, die angeschlossene 
Hardware macht mit. Ein Laufwerk vom 
Typ TEAC FD-55E/55F ist somit sehr 
leicht auf eine Kapazität von 640 Blocks 
(320K) zu bringen. Selbstverständlich las¬ 
sen sich auch andere 35/40/80-Spur- 
Laufwerke hiermit formatieren. 

Wenn man das kleine Basicprogramm zur 
Initialisierung seiner Disketten verwendet, 
ist es sehr leicht, sich eine Diskette nach 
den eigenen Wünschen zu konfigurieren. 
Man denke nur an das Programm „ MOUSE- 
PAINT“, wo man auf der Bootdiskette nur 
noch zusätzlich 2 erstellte Bilder abspei¬ 
chern kann. Kopiert man hier die Original¬ 
diskette auf eine 320K-Disk, bleiben einem 
immer noch 394 Blocks. 

Im folgenden Teil wird nun erklärt, wie das 
Programm „PRODOS.INIT“ geändert 
werden muß: 

a) Man lädt „PRODOS.INIT“ mit dem Be¬ 
fehl BLOAD PRODOS.INIT, A$8000. 

b) An den Speicherstellen $8814 und 
$8980 wird vom Monitor aus (nach CALL- 
151) folgende Änderung eingegeben: 

8814:40 80 89 28 43 29 20 20 
8810: 48 47 48 00 00 00 00 00 
8824: 00 00 00 00 00 00 00 00 
882C: 00 00 00 

8980: AD 06 80 8D 2D 88 A9 00 
8988: 8D 2E 88 A2 04 OE 2E 88 


8990: CA FO OB OE 2D 88 90 F5 
8998: 2E2E 88 4C 90 89 60 

c) BSAVE PRODOS.INIT, A$8000, L$0E00 

Nach dieser Prozedur wird noch das ent¬ 
sprechende Applesoft-Programm einge¬ 
geben. Der Source-Code des Assembler- 
Patch-Programms sowie das Basic-Pro- 
gramm sind nachfolgend gelistet. 

Vergleichende Tests haben ergeben, daß 
sowohl bei den Apple Disk II wie auch bei 
den TEAC FD-55F Laufwerken die maxi¬ 
male Einlesegeschwindigkeit bei ca. 8400 
Bytes pro Sekunde liegt. 


Anmerkung des Redakteurs: Ich freue 
mich immer, wenn jemand einen Bug 
(oder auch mehrere) in meinen Program¬ 
men findet, zeigt dies doch immerhin, daß 
man an den Programmen interessiert ist, 
sonst würde man sich nicht die Mühe ma¬ 
chen, den Fehler zu suchen. Ein bekann¬ 
ter amerikanischer Autor - der Name tut 
hier nichts zur Sache - hatte einmal im 
Scherz gesagt, er würde absichtlich einige 
Fehler stehenlassen „...to keep the read- 
ers happy and alert“. 

Was das PRODOS.INIT-Programm an¬ 
langt, so handelt es sich im übrigen um 
eine teils gekürzte und teils erweiterte 
RWTS des alten DOS 3.3. Als ich diese zu 
einer ProDOS-Formatierungsroutine um¬ 
schrieb, verfügte ich nur über die alten 
DISK-Il-Laufwerke, bei denen ich nur mit 
der 36. Spur experimentieren konnte. Als 
ich dann bei einem Apple-Händler an 80- 
Track-Cumana-Laufwerken einen endgül¬ 
tigen Test durchführte, zeigte sich der 
Fehler in der Multiplikationsroutine. Diese 
hatte ich seinerzeit „auf die schnelle“ ge¬ 
strickt, ohne sie gesondert auszutesten. 
Damit habe ich selbst gegen meine Pro¬ 
grammierer-Maxime verstoßen, die mir 
sonst heilig ist. Diese besagt: „Teste je¬ 
des Teil-Modul für sich, bevor Du alle Mo- 
dule zum Gesamtprogramm zusammen¬ 
fügst“. 
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100 D$ = CHR$ (4) 

110 PRINT D$"BL0AD PRODOS.INIT” 

120 REM 
130 REM 
140 REM 
150 HOME 

160 PRINT : PRINT : PRINT 

170 INPUT "Wieviele Spuren ? "jTRACK$ 

180 IF VAL {TRACK$) < 1 OR VAL (TRACK$) 
> 255 THEN 460 
190 PRINT : PRINT 
200 INPUT "Welcher Slot ? ";S 
210 IF S < 1 OR S > 7 THEN 460 
220 PRINT : PRINT 
230 INPUT "Welches Drive ? ";D 
240 IF D < 1 OR D > 2 THEN 460 
250 REM 
260 REM 

270 INIT = 32768: REM $8000 
280 SLOT = 32771: REM $8003 
290 DRIVE = 32772: REM $8004 


300 TRACK = 32774: REM $8006 
310 REM 

320 POKE SL0T,S 
330 POKE DRIVE,D 

340 SELUNIT = PEEK (49289 + S * 16 + D) 

350 REM 
360 REM 
370 REM 

380 POKE TRACK, VAL (TRACK$) 

390 REM 

400 UNITEIN = PEEK (49289 + S # 16) 

410 CALL INIT 
420 END 
430 REM 
440 REM 
450 REM 

460 PRINT : PRINT 

470 PRINT "Falsche Eingabe, bitte nochmal!" 
480 FOR I - 1 TO 2000: NEXT 
490 GOTO 150 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 


* TRACK/BLOCK - CONVERTER * 

* * 

* von H.G.Hüneke 1984 * 

* Diese Routine rechnet für das Pro- * 

* gramm 'PRODOS.INIT', aus dem Buch * 

* 'APPLE PRODOS für Aufsteiger', * 

* die entsprechenden Blöcke/Diskette * 

* aus, um die formatierte Diskette mit * 

* der notwendigen Information in der * 

* Directory zu versorgen. * 

* * 


BLOCK EQU $8006 
ORG $8814 

* 

* Sprung in die neue Block-Routine. * 


8814: 

4C 

80 

89 

26 


JMP 

CALCBLCK 





27 




8817: 

C8 

FD 

EE 

28 


ASC 

"Hüneke84" 

881A: 

E5 

EB 

E5 

B8 B4 








29 




881F: 

00 

00 

00 

30 


HEX 

00000000 ;j 

8822: 

00 







8823: 

00 

00 

00 

31 


HEX 

00000000 

8826: 

00 







8827: 

00 

00 

00 

32 


HEX 

000000000000 

882A: 

00 

00 

00 





882D; 

00 

00 


33 

BLOCKLSB 

HEX 

0000 





34 

BLOCKMSB 

EQU 

BLOCKLSB+1 





35 








36 


ORG 

$8980 



;Alte Block-Ermittlungsroutine löschen. 


37 

38 

39 

40 


* Initialisieren des Block-Zählers. # 


8980: 

AD 

06 

80 

41 

CALCBLCK LDA 

BLOCK 

8983: 

8D 

2D 

88 

42 

STA 

BLOCKLSB 

8986: 

A9 

00 


43 

LDA 

#0 

8988: 

8D 

2E 

88 

44 

STA 

BLOCKMSB 

898B: 

A2 

04 


45 

LDX 

#4 


Multiplikand mit den 

entsprechenden Spuren initialisieren. 
Schleifenzähler für die Multiplikation mit 8- 


46 

47 

48 

49 

50 


♦ Berechnen der gesamten Blöcke. ■* 


898D: 

OE 

2E 

88 

51 

MULTMSB 

ASL 

BLOCKMSB 





52 

* 



8990: 

CA 



53 

MULTLSB 

DEX 


8991: 

FO 

OB 


54 


BEQ 

MULT8END 

8993: 

OE 

2D 

88 

55 


ASL 

BLOCKLSB 

8996: 

90 

F5 


56 


BCC 

MULTMSB 

8998: 

2E 

2E 

88 

57 


ROL 

BLOCKMSB 

899B: 

4C 

90 

89 

58 


JMP 

MULTLSB 





59 

* 



899E: 

60 



60 

MULT8END 

RTS 



;High~Byte mit 2 multiplizieren. 

;Zähler für die Multiplikation mit 8. 

;Low-Byte mit 2 multiplizieren. 
jWenn kein übertrag, Multiplikation mit 2. 
;Übertrag ins High-Byte übertragen und verhindern, 
;daß das High-Byte nochmals multipliziert wird. 
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Für C 64 

Koppler 

Diskette 

Kabel 

Stecker 

anschlußfertig 

Handbuch 

Best.-Nr. 8560 

DM795,- 


Für Apple II 

Koppler 
Diskette 
Kabel 
Stecker 
anschlußfertig 
Handbuch 
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Wer ist 

der Schnellste? 


Primzahlen-Preisausschreiben 

’EpaToau8vr|ö 



Bei unserem Primzahlen-Wettbewerb 
können Sie diese Preise gewinnen: 

1. Preis: DM 500- 

2. Preis: DM 250,- 

3. -25. Preis: Freiabonnement von 
„Peeker“ für 1985. 

Es wird die Aufgabe gestellt, die Prim¬ 
zahlen im Bereich von 2-8191 nach einem 
beliebigen Algorithmus in einer beliebigen 
Programmiersprache auf einem Apple 
ll+Ze/c in weniger als 0,45 Sekunden zu 
ermitteln. Der Schnellste erhält den 
ersten Preis. Mitmachen kann jeder Leser 
von „Peeker“, sei er Hobbyist oder Profi. 
Selbst die Apple-Mannschaft in München 
darf zeigen, wie schnell sie ist.... 
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1, Sieb des Eratosthenes 

Wohl jeder, der auf seinem Apple gele¬ 
gentlich „aus Spaß an der Freude“ pro¬ 
grammiert, hat sich schon irgendwann ein¬ 
mal mit der Berechnung von Primzahlen 
befaßt. Darüber hinaus benutzen viele 
Computer-Zeitschriften diese Berechnung 
als „Benchmark“, um die Leistungsfähig¬ 
keit unterschiedlicher Programmierspra¬ 
chen zu testen. Deshalb findet man in der 
einschlägigen Fachliteratur eine Fülle von 
Algorithmen und Programmvarianten zur 
Ermittlung der Primzahlen innerhalb eines 
vorgegebenen Intervalls. Das bekannteste 
und vielleicht schnellste Verfahren ist das 
Sieb des Eratosthenes, benannt nach dem 
gleichnamigen griechischen Gelehrten, der 
um ca. 200 V. Chr. als Mathematiker, Dich¬ 
ter, Astronom und Bibliothekarin Alexandria 
wirkte. Wie viele geniale Entdeckungen ist 
das Sieb des Eratosthenes nicht nur extrem 
effizient, sondern auch ungewöhnlich ein¬ 
fach und deshalb für jeden Nicht-Mathema¬ 
tiker sofort einsichtig: 


Primzahlen sind von 0 und 1 verschiedene 
natürliche Zahlen, die nur durch sich 
selbst ohne Rest geteilt werden können, 
also die Zahlen 2, 3, 5, 7,11 usw. Die Zahl 
2 nimmt insofern eine Sonderstellung ein, 
als sie die erste und damit kleinste Prim¬ 
zahl ist. Ferner ist die Zahl 2 die einzige 
gerade Primzahl. Nehmen wir an, wir woll¬ 
ten die Primzahlen für das Zahlenintervall 
0-9 ermitteln. Da 0 und 1 per definitionem 
keine Primzahlen sind, brauchen wir uns 
nur auf das Intervall 2-9 zu beschränken. 
Die Eratosthenes-Methode geht dann 
nach folgendem, völlig formalistischem 
und damit quasi rein mechanischem Ver¬ 
fahren vor: 

Schritt 1: Zunächst markieren wir alle Zah¬ 
len im Intervall 2-9 (Untergrenze bis Ober¬ 
grenze) als potentielle Primzahlen, indem 
wir folgende Flag-Zuordnung vornehmen: 

23456789 
00000000 
0 = Primzahl (potentiell) 

1 = keine Primzahl 

Im Verlauf der weiteren Erörterung soll 
gelten, daß Flag 0 = Primzahl und Flag 1 = 
Nicht-Primzahl bedeutet. Statt dieser will¬ 
kürlich definierten Flags, die sich speziell 
für die computermäßige Aussiebung der 
Primzahlen eignen, könnte man auf dem 
Papier die später gefundenen Nicht-Prim¬ 
zahlen durchstreichen oder auf andere 
Weise markieren. 



Schritt 2: Nunmehr initialisieren wir einen 
Zähler auf die erste Zahl des Zahlen¬ 
strahls, also auf die Untergrenze (= 2). 

Schritt 3: Wir prüfen jetzt, ob die momen¬ 
tane Zahl (beim ersten Durchlauf Zahl 2) 
auf 0 gesetzt ist, d.h. als Flag = 0 hat. 
Wenn nein, gehen wir direkt zu Schritt 4. 
Wenn ja, haben wir eine Primzahl gefun¬ 
den und können damit alle Vieifachen der 
momentanen Primzahl bis zur Obergrenze 
auf 1 = Nicht-Primzahlen setzen. Im er¬ 
sten Durchlauf bezüglich der Zahl 2 sind 
dies die Zahlen 4, 6 und 8. 


Schritt 4: Nunmehr erhöhen wir den Zäh¬ 
ler um 1 und prüfen, ob der Zähler größer 
als die Obergrenze ist. Wenn nein, gehen 
wir zurück zu Schritt 3. Wenn ja, haben wir 
alle Primzahlen in dem vorgegebenen In¬ 
tervall ermittelt. 

Für den Zahlenstrahl 2-9 wären damit fol¬ 
gende Streichungen bzw. Flagsetzungen 
erforderlich: 


23456789 
00101010=2 
00101011=3 
00101011=5 
00101011=7 

Das obige Siebverfahren läßt sich auf ver¬ 
schiedene Weise verfeinern: 

a) Man könnte darauf verzichten, vorab 
alle Zahlen auf 0 = potentielle Primzahlen 
zu setzen. Statt dessen könnte man gleich 
mit der Primzahl 2 beginnen, diese selbst 
auf 0 setzen und sodann alle Vieifachen 
von 2 auf 1 = Nicht-Primzahlen sowie alle 
A//c/??-Vielfachen von 2 auf 0 = potentielle 
Primzahlen setzen. 

b) Wie ersichtlich, finden bei dem Intervall 
2-9 nach der Zahl 3 keine weiteren Strei¬ 
chungen mehr statt. Es läßt sich mathema¬ 
tisch beweisen, daß die Streichung nur bis 
zur Quadratwurzel der Obergrenze durch¬ 
geführt werden muß, also hier bis zur Qua¬ 
dratwurzel von 9 = 3. Damit reduziert sich 
die Anzahl der erneuten Streichungen von 
bereits gestrichenen Nicht-Primzahlen 
ganz erheblich. 

c) Nehmen wir an, wir hätten gerade die 

Zahl 2 als Primzahl ermittelt und im An¬ 
schluß daran alle Vielfachen von 2 als 
Nicht-Primzahlen eliminiert. Nunmehr wä¬ 
ren wir bei der Zahl 3 angelangt, die wir 
ebenfalls - da noch nicht gestrichen bzw. 
auf 1 gesetzt-als Primzahl erkennen. Wir 
könnten nunmehr alle Vielfachen von 3, 
d.h. 6 und 9 streichen. Da jedoch alle 
Vielfachen von 2, d.h. alte geraden Zahlen 
außer 2, bereits gestrichen sind, brauchen 
wir bei der Zahl 3 nicht alle geraden Vielfa¬ 
chen von 3, also z.B. nicht Zahl 6, zu 
streichen, da diese geraden Zahlen ja be¬ 
reits gestrichen worden sind. Folglich kön¬ 
nen wir uns bei der Primzahl 3 statt der 
Streichung von 3 -H (1 3), 3 -l- (2 * 3) 

usw. auf die Streichung von 3 + (1 ^ 3 * 
2), 3 -h (2 ^ 3 * 2) usw. beschränken. Bei 
dem Intervall 2-9 wäre damit nur die 9 zu 
markieren, da die 6 bereits zuvor durch 2 
markiert worden ist. 

Bei der Primzahl 5 könnten wir dasselbe 
Verfahren wie bei der Primzahl 3 anwen¬ 
den, also 5-H (1 *5* 2) = 15, 5-1- (2^5^it 
2) = 25, 5 -H (3^5*2) = 35, 5 -L (4*5* 
2) = 45. Wie ersichtlich, wären jedoch die 
Zahlen 15 und 45 bereits mit der Primzahl 
3 als deren Vielfache markiert worden. 
Folglich könnte man hier mit einem noch 
verzwickteren Algorithmus, der auf das 
Wissen der bereits abgehakten Prlmzah- 
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len 2 und 3 zurückgreift, die Zahlen 15 und 
45 überspringen. 

Das nachfolgende Appiesoft-Programm 
berechnet die Primzahlen in dem Intervall 
2-8191 nach dem Eratosthenes-Verfah- 
ren. Zur genaueren Zeitmessung erfolgen 
insgesamt 256 Durchläufe. Zu diesem 
Zweck wird die Speicherstelle 768 
($0300) hochgezählt, da vor jedem Durch¬ 
lauf alle Variablen gelöscht werden. 

In Zeile 110 wird das Programm per Ta¬ 
stendruck gestartet. 

In Zeile 130 wird der Speicher gelöscht, 
dann in Zeile 140 die Quadratwurzel aus 
8191 ermittelt (= 90,50414), die zur Ver¬ 
meidung von Rundungsfehlern auf 91 er¬ 
höht wird. 

In Zeile 150 wird der Primzahlen-Array P% 
dimensioniert, womit zugleich alle Werte 
= Flags auf 0 gesetzt werden. (Schritt 1) 
Zeile 170-190 stellen die eigentliche Be¬ 
rechnung dar (Schritt 3). Dabei wird von X 
= 2 bis 91 hochgezählt (Schritt 2 und 4), 
wobei immer dann, wenn P%(X) = 0 ist, 
die Vielfachen von X bis zur Obergrenze H 
auf 1 = Nicht-Primzahlen gesetzt werden. 
Der Vergleich „IF X-K X < H“ = „IF S-H S 
< H“ in Zeile 180 könnte theoretisch ent¬ 
fallen. 

In Zeile 210 wird nach jedem Durchlauf am 
Bildschirm ein „P“ angezeigt. Nach 256 
Durchläufen wird in Zeile 240 ein Piepston 
zur Zeitmessung ausgegeben. Danach 
werden zur Kontrolle alle ermittelten Prim¬ 
zahlen sowie am Schluß die Summe aller 
Primzahlen (insgesamt 1028 Zahlen) geli¬ 
stet. 

100 REM HNTEGER* 

110 HOME: PRINT „PRIM-TEST“: PRINT 
„STOPPUHR!“: PRINT : GETX$ 

120 POKE 768,0: REM Zähler initialisieren 
130 CLEAR : REM Loop 
140 S = INT(SQR (8191)) + 1 
150 DIM P%(8191):H = 8191 
160 REM Berechnen 
170 FORX = 2TOS 
1801FP%(X) = OTHEN 1FX + X< H 
THEN FORY = X + XTOH 
STEPX:P%(Y) = 1: NEXT 
190 NEXT 

200 REM 256 Loops 
210 PRINT „P“: 

220 L = PEEK (768):L = L + 1 
230 IF L < 256 THEN POKE 768,L: 

GOTO 130 

240 PRINT CHR$ (7): REM Piepston 
250 REM Anzeigen 
260 PRINT :A = 0 

270 FOR X = 2 TO H: IF P%(X) = 0 THEN 
PRINT X,:A = A -h 1 


280 NEXT : PRINT : PRINT „ANZAHL: “A 
290 REM 77 Sek. mit 1 MHz 6502 
300 REM 10 Sek. mitTascI MHz 6502 
310 REM 2.9 Sek. mit Tasc 3.5 MHz 
65C02C - beim Wettbewerb nicht 
erlaubt! 


2. Wettbewerbsbedingungen 

Allgemeine Aufgabenstellung: Es soll ein 
Primzahlen-Programm erstellt werden, 
das alle Primzahlen im Intervall von 2 bis 
8191 in weniger als 0,45 Sekunden auf 
einem normalen, d.h. nicht „frisierten“ 
Apple ll+/lle/llc ermittelt. 

1. Jeder kann sich an dem Preisausschrei¬ 
ben beteiligen (mit Ausnahme der Redak¬ 
tion von „Peeker“), doch darf jeder nur 
eine einzige Lösung einsenden, die im 
übrigen alle 1028 Primzahlen von 2-8191 
in weniger als 0,45 Sekunden, d.h. ab 0,44 
abwärts, ermitteln muß. Um diese Zeit zu 
unterschreiten, muß man sich schon eini¬ 
ges einfallen lassen. Der Grund für diese 
hohe Programmgeschwindigkeit ist darin 
zu sehen, daß bereits sehr viele Erato- 
sthenes-Varianten publiziert wurden, auf 
die ein Teilnehmer natürlich zurückgreifen 
könnte. Unseres Wissens ist jedoch noch 
niemals eine Variante veröffentlicht wor¬ 
den, die eine halbe Sekunde deutlich un¬ 
terschreitet. Selbst das u.W. momentan 
schnellste Eratosthenes-Programm - er¬ 
schienen in „Apple Assembler-Tips und 
Tricks“ (Hüthig-Verlag) - bringt es nur auf 
0,55 Sekunden. Durch Festlegung des 
Zeitlimits dürfte gewährleistet sein, daß 
nur selbstentwickelte Lösungen einge¬ 
reicht werden. Unter Ausnutzung aller As¬ 
semblerkniffe läßt sich beispielsweise die 
sehr seriöse Programmvariante aus dem 
erwähnten Apple-Assembler-Buch ganz 
erheblich „tunen“, wobei an dieser Stelle 
verschwiegen sei, welche Zeitverbesse¬ 
rungen realisierbar sind. 

2. Die Primzahlen-Programme werden von 
uns auf einem normalen Apple Ile mit 1 
MHz 6502-Prozessor und Disk-Il-Lauf- 
werken getestet. Damit scheiden andere 
und/oder schnellere Prozessoren aus. Er¬ 
laubt sind alle Programmiersprachen oder 
Kombinationen von Programmiersprachen 
(z.B. compiliertes Applesoft plus reines 
Assembler usw.) sowie alle denkbaren 
Programmiertricks (z.B. selbstmodifizie¬ 
rendes Programm usw.). Nicht erlaubt sind 
Tricks, die mit dem Primzahlenprogramm 
nichts zu tun haben. Beispielsweise könn¬ 
te ein cleverer Programmierer auf den 


Trick verfallen, vor dem eigentlichen Pro¬ 
grammstart eine Hires-Grafik zu zeigen, 
die etwa den Bereich $2000-$3FFF (= 
8192 Bytes) ausblankt mit der Folge, daß 
man sich das Löschen des Primzahlen- 
Arrays sparen würde. 

3. Die eingereichte Lösung - bootfähiger 
Objekt-Code + kommentierter Quell-Co¬ 
de - soll sich auf einer normalen 5 1 /4 Zoll 
Diskette für Disk-Il-Laufwerke befinden. 
Das Etikett ist mit der vollständigen Adres¬ 
se sowie mit der selbst gestoppten Durch¬ 
schnittszeit für 1 Durchlauf zu versehen. 
Alle eingereichten Disketten werden spä¬ 
ter wieder zurückgesandt. 

4. Da nicht jeder über eine Hardware-Uhr 
verfügt, muß das Programm folgende Zeit¬ 
messung per Stoppuhr zulassen: Ein kur¬ 
zes Menü soll 2 Optionen zulassen: A- 
Version mit 256 Durchläufen und B-Ver- 
sion mit 1024 Durchläufen. Die A-Version 
wird per Tastendruck gestartet (Stoppuhr 
läuft an), ruft dann das eigentliche Prim¬ 
zahlenprogramm 256 mal auf und wird mit 
einem Piepston beendet (Stoppuhr hält 
an). Der so ermittelte Wert (z.B. 97,1 oder 
77,8) wird auf einen durch 0,5 teilbaren 
Wert abgerundet (z.B. auf 97,0 oder 77,5), 
dann durch 256 geteilt und schließlich auf 
die zweite Stelle nach dem Komma abge¬ 
hackt (z.B. auf 0,37 oder 0,30). Die Fehler¬ 
quote beim Handstoppen von 256 Durch¬ 
läufen (A-Version) liegt bei ca. +/- 0,5 
Sekunden. Dies wären jedoch nur 0,5 : 
256 = 0,001953125 = ca. 0,002 Sekun¬ 
den, also ein praktisch bedeutungsloser 
Wert. Wir messen zunächst nach der A- 
Version. Sollte unser Meßwert von Ihrem 
selbstgemessenen zu Ihren Ungunsten 
abweichen, stoppen wir nach der B-Ver- 
sion. Nehmen wir an, jemand würde eine 
weltrekordverdächtige Zeit von 0,20 Se¬ 
kunden für 1 Durchlauf nennen. Diese sei 
ermittelt worden durch 205,1, abgerundet 
auf 205,0, geteilt durch 1024 = 0,200195 
= abgehackt auf 0,20 Sekunden. Nehmen 
wir ferner an, wir selbst hätten den total 
unwahrscheinlichen Wert von 207,6 - also 
2,5 Sekunden mehr! - gestoppt, dann wä¬ 
ren dies 207,6, abgerundet auf 207,5, ge¬ 
teilt durch 1024 = 0,202636 = abgehackt 
auf 0,20 Sekunden, also trotz extrem fal¬ 
scher Messung kein schlechterer Wert. 

5. Das Primzahlenprogramm darf im vor¬ 
aus nur zwei Zahlen kennen, nämlich die 
Untergrenze 2 und die Obergrenze 8191. 
Es darf z.B. nicht im voraus die Quadrat¬ 
wurzel aus 8191 = 90.50414355 kennen, 
vielmehr muß diese, falls man das Erato- 
sthenes-Verfahren benutzen will, eigens 
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errechnet werden. Ob dies durch die ent¬ 
sprechende Applesoft-Interpreter-Routine 
oder durch eine eigene Routine erfolgt, ist 
dabei gleichgültig. Das oben beschriebene 
Sieb des Eratosthenes dient im übrigen 
nur als Anregung. Jeder beliebige andere 
mathematische Algorithmus ist zulässig. 
Ferner ist jedes beliebige Wissen um die 
Primzahlen zulässig, z.B. daß gerade Zah¬ 
len keine Primzahlen sind. Sollte dieses 
Wissen jedoch die Kenntnis einer oder 
mehrerer Primzahlen voraussetzen (z.B. 
der Zahl 2), dann darf von diesem Wissen 
erst dann Gebrauch gemacht werden, 
wenn diese Primzahl(en) bereits zuvor oh¬ 
ne dieses Wissen ermittelt worden sind. 

6. Das Primzahlenprogramm darf keinerlei 
Tabellen enthalten. Ganz plump wäre z.B., 
wenn alle Primzahlen bereits in verschlüs¬ 


selter Form vorlägen und mit dem Pro¬ 
gramm als Array eingeladen würden. Je¬ 
der der 256 oder 1024 Durchläufe muß 
wie ein Ei dem anderen gleichen, d.h. in 
einem nachfolgenden Durchlauf darf nicht 
auf Werte zurückgegriffen werden^ die in 
einem vorangehenden Durchlauf ermittelt 
wurden. Nach jedem Durchlauf müssen 
sich alle ermittelten Primzahlen und Nicht- 
Primzahlen im Bereich 2-8191 komplett im 
Speicher befinden. Ob diese Fließkomma- 
Flags, Integerflags, Byte-Flags, Nibble- 
Flags oder Bit-Flags sind, ist demgegen¬ 
über gleichgültig. Nehmen wir an, ein As¬ 
semblerprogramm würde den Speicher¬ 
bereich $2000-$3FFF für die 8192 Zahlen 
reservieren, wobei etwa $2002 als Prim¬ 
zahl 2 auf 0 gesetzt würde ($2002-$2000 
= $0002), $2004 auf 1 usw. Dann darf 


man ab dem zweiten Durchlauf nicht von 
dem Wissen Gebrauch machen, daß nun¬ 
mehr bereits alle Primzahlen berechnet im 
Speicher vorliegen. Vielmehr muß jeder 
Durchlauf so tun, als enthielte der Spei¬ 
cher Zufallswerte, so daß in jedem Durch¬ 
gang dieselbe Initialisierungsroutine auf¬ 
gerufen werden muß. 

7. Einsendeschluß ist der 15. November 
1984. Richten Sie Ihre Lösungen an Dr. 
Alfred Hüthig Verlag, Redaktion Peeker, 
Postfach 102869, 6900 Heidelberg 1. 

Von Lösungen, die hinsichtlich aller zeit¬ 
kritischen Routinen total identisch sind, 
wird nur die zuerst eingesandte berück¬ 
sichtigt. Die Programme der Gewinner des 
1. und 2. Preises werden im November- 
Heft von „Peeker“ veröffentlicht. Der 
Rechtsweg ist ausgeschlossen. 


Besuchen Sie uns auf der Apple-Expo! 


Zur Orgatechnik in Köln hat die Firma 
Apple eine komplette 5000 qm große Halle 
angemietet, in der wir mit einem eigenen 
Zeitschriften-, Bücher- und Software- 
Stand vertreten sein werden. Die Apple- 
Expo ist vom 25. bis 29. 10. 1984 täglich 


von 10.00 - 20.00 Uhr geöffnet und steht 
unter dem von Apple verkündeten Motto 
„Versuchen Sie nicht, eine Maschine zu 
werden“. Indessen können wir nur 
schmunzelnd konstatieren, daß selbst die 
Firma Apple ihrer eigenen Maxime nicht 


gerecht wird, wie das bei uns eingegange¬ 
ne Kuvert bezeugt. Es hätte uns nicht ge¬ 
wundert, wenn der inliegende Brief unse¬ 
ren Chefredakteur mit „Sehr geehrter Herr 
Postfach“ angeredet hätte... 




Redaktion Reeker 
Dr. Alfred Hüthig Verlag 
z. H. Herrn Peeker 
C he f rcdak tion 

69oo Heidelberg 


Apple Computer GmbH 

Ingolstadler Sir 20 
D-8000 München 45 
Tet- (0391 35034-0 
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Hinweise für Autoren 

Wir suchen laufend Beiträge: Erfahrungsberich¬ 
te über kommerzielle Hardware- und Software- 
Produkte, Tips und Tricks für Anwender und 
Programmierer, gut dokumentierte Programme 
für Anfänger und Fortgeschrittene, hardware¬ 
technische Beiträge usw. Wir zahlen DM 200,- 
pro Druckseite, gleichviel ob Text oder Pro¬ 
gramm, wobei ein Beitrag mehrere Druckseiten 
oder gar mehrere Aufsatzfolgen umfassen 
kann. Es lohnt sich also, für uns zu schreiben. 
Alle Textbeiträge einschließlich der Programmli- 
stings werden von einem Apple Ile direkt in die 
Lichtsatzanlage unserer Druckerei übertragen. 
Im einzelnen sind deshalb folgende Richtlinien 
zu beachten: 

Beiträge müssen sowohl als Papierausdruck 
wie auch als Diskette eingereicht werden. Zur 
Zeit können ausschließlich die klassischen 51/4 
Zoll Disketten für Apple ll/lle/llc angenommen 
werden. Berücksichtigt werden grundsätzlich 
nur Originalaufsätze und Originalprogramme. 
Es ist jedoch urheberrechtlich zulässig, aus 
Werken anderer Urheber zu zitieren. So können 
Sie z.B. Teile aus einem fremden Programm in 
Ihr eigenes übernehmen. In diesem Fall muß 
jedoch an geeigneter Stelle ein Zitathinweis er¬ 
folgen, etwa in der Form „Zeilen X-Y enthalten 
den Teil Soundso aus dem Programm ABC des 
Autors X, erschienen bei Firma Y, Ort und 
Jahr". 

Wie im Verlagswesen üblich, übertragen Sie 
uns mit den eingereichten Aufsätzen und/oder 
Programmen das Recht der Vervielfältigung und 
Verbreitung in jeder Form. Speziell in bezug auf 
die Programme besagt dies, daß sie von uns 
nicht nur in Druckform, sondern auch in Disket¬ 
tenform vertrieben werden, und zwar als Pee- 
ker-Sammeldisketten, die in unregelmäßiger 
Folge erscheinen und eine Auswahl der größe¬ 
ren Programme als Quell- und Objekt-Code 
enthalten. Versehen Sie Ihre Programme nicht 
mit dem amerikanischen Copyright-Vermerk, 
sondern schreiben Sie statt dessen nur „Von 
Name, Ort und Jahr“. 


1. Textbeiträge 

a) Die Aufsatztexte sollten im Idealfall mit einem 
DOS-3.3-Textprogramm erstellt werden, das 
normale ASCII-Textfiles erzeugt, z.B. Applewri- 
ter 11/1 le usw. Wordstar-Dateien im CP/M-For- 
mat sind ebenfalls möglich, doch müssen in 
diesem Fall die Texte endlos (ohne Silbentren¬ 
nung) erfaßt werden. 

b) Die Texte dürfen keinerlei Steuerzeichen für 
Matrixdrucker usw. enthalten. Überschriften 
dürfen nicht unterstrichen werden. Vielmehr 
brauchen lediglich im ausgedruckten Manu¬ 
skript die Überschriften sowie darüber hinaus 
im Text selbst Hervorhebungen mit einem Farb¬ 
stift o.ä. markiert zu werden. Die entsprechende 
Kodierung für die Satzanlage wird dann von uns 
übernommen. 


c) Der Text muß grundsätzlich endlos erfaßt 
werden, d.h. ein Return darf nur am Absatzende 
und niemals am Zeilenende stehen, da der 
Satzrechner sonst keinen automatischen Um¬ 
bruch mehr vornehmen kann. Vermeiden Sie 
darüber hinaus Einzüge zu Beginn eines Absat¬ 
zes. Auch dies besorgt nämlich die Satzanlage 
automatisch. 

d) Ausgangspunkt unserer Kodierung ist der 
deutsche ASCII-Zeichensatz, also mit Umlau¬ 
ten, ß usw. anstelle von eckigen und geschweif¬ 
ten Klammern. Wenn Sie - z.B. beim alten 
Apple II - keine Umlaute usw. eingeben kön¬ 
nen, rufen Sie uns an. Bei Texten, die sowohl 
die deutschen als auch die amerikanischen 
ASCII-Sonderzeichen enthalten sollen, z.B. bei 
Pascal-Aufsätzen, müssen die letzteren kodiert 
werden. Kodierung bedeutet, daß eine Buchsta¬ 
benkombination, z.B. „§p" für griechisches Jt 
durch unser Transmitter-Programm in den ent¬ 
sprechenden Kode der Satzanlage konvertiert 
wird. 

e) Vermeiden Sie unnötige Einrückungen und 
Kurztabellen. Ferner mischen Sie bitte nicht 
Aufsatztexte mit Programmtexten, da letztere 
gesondert in die Satzanlage übertragen werden. 
Größere Tabellen, die von uns konventionell 
gesetzt werden, sind auf gesonderten Textfiles 
zu speichern. Es genügt, wenn Sie senkrechte 
Trennlinien mit Kuli o.ä. andeuten. Schaubilder 
usw. sind stets willkommen. Hierzu genügen 
Bleistiftskizzen als Vorlagen für unsere Rein¬ 
zeichner. 

f) Achten Sie bitte auf Orthographie und Inter¬ 
punktion. Deutsch ist immer noch eine wichti¬ 
gere Sprache als Basic und Assembler! 


2. Programmlistings 

Beachten Sie, daß wir im Gegensatz zu anderen 
Computer-Zeitschriften Programmlistings nicht 
von den meist sehr häßlichen Printouts abpho¬ 
tographieren, sondern wie die Textbeiträge von 
Diskette in die Satzanlage übertragen, wobei 
eine besondere Schreibmaschinen-Lichtsatz- 
schrift verwendet wird. Nur bei exotischen Pro¬ 
grammiersprachen wählen wir z. Zt. noch den 
konventionellen Weg. 


2.1. Basic-Programme 

a) Applesoft-Programme usw. liefern Sie bitte 
als normale Programm-Files, die von uns für die 
Satzanlage aufbereitet werden. 

b) Zeilennummern sollten stets dieselbe Stel¬ 
lenzahl haben, z.B. nur 3stellige Zeilennum¬ 
mern 100, 110, 120 o.ä., damit diese Zahlen 
von uns korrekt freigestellt werden können (RE- 
NUMBER anwenden). 

c) REM’s sollten der besseren Lesbarkeit halber 
möglichst in Groß-Klein-Buchstaben geschrie¬ 
ben werden. 

d) Menü-Texte, REM’s usw. müssen unbedingt 
in Deutsch sein. Englischsprachige Programme 
werden nicht angenommen. Englische Compu¬ 
ter-Fachausdrücke sind demgegenüber selbst¬ 
verständlich zulässig. 

2.2. Assembler-Programme 

a) Assembler-Programme sind als Source- 
Code und als Objekt-Code auf Diskette einzu¬ 
reichen. Wir bevorzugen den Assembler na¬ 
mens Merlin (= Big Mac) von G. Bredon. Ver¬ 
wendbar sind ferner Lisa 2.5, Toolkit-Assem¬ 
bler, ProDOS-Assembler sowie jeder andere 
Assembler, bei dem die Möglichkeit besteht, 
anstelle auf Papier auf Diskette zu assem- 
blieren. 

b) Der Source-Code sollte möglichst im 40- 
Z/Z-Modus geschrieben werden, damit die 
assemblierten Listings in der Zeitschrift 2spaltig 
gesetzt werden können. In der Kommentarspal¬ 
te des Source-Codes sollten nur ganz kurze 
Bemerkungen stehen. Längere Kommentare 
schreibe man über die Befehle in reine Kom¬ 
mentarzeilen, wobei auch diese 40 Zeichen pro 
Zeile nicht überschreiten sollten. 

c) Vermeiden Sie Makros und seltene Pseudo- 
Op-Codes, damit der Quell-Code ohne großen 
Aufwand in einen anderen Assembler konver¬ 
tiert werden kann. 

2.3. Sonstige Programme 

Programme in selteneren Programmierspra¬ 
chen sind willkommen, erfordern jedoch eine 
vorherige Absprache wegen der Konvertie¬ 
rungsmöglichkeit. Ggf. muß ein Schönschreib- 
drucker-Printout erstellt werden. 


Der tlu^ ttmrNtfH . 


Floppy^Speicliei 


appi©kofnpatit>ei NF 555 
140-250 KB 

gefauachEosduiTCii Ornokt- 
autom. Ge- 

schMlndlgkcHtärDgelung. 

DM 595,- 


NEWTECH-Quaütät 


Computer-Studio, 
Ringstraße 70, 

2300 Kiel 1, 

Telefon 0431/6766 
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m NEUE pRodukTE 



Individuelle Zeichensätze für Matrixdrucker 


Der DMP-Charger der Firma Nor¬ 
bert Hunstig in Münster ist ein Zei¬ 
chensatz-Generator-Programm, 
das in Pascal geschrieben wurde 
und zur Erstellung eigener Zei¬ 
chensätze für den Apple Dot Matrix 
Printer, den Apple Imagewriter und 
den Epson FX 80 dient. Die neuen 
Zeichen sind Buchstaben, keine 

^ *0 / 
ABCDEFQHI JKLMNGP 

abcde-fgh I JKImnop 

Grafik. Sie werden vom DMP 
Charger geladen und können da¬ 
nach von jedem beliebigen Pro¬ 
gramm (z. B. Applewriter) benutzt 
werden. Die Umschaltung erfolgt 
jeweils durch eine ESC-Sequenz. 
Es können bis zu 95 Zeichen um¬ 
fassende Zeichensätze erstellt 
werden. 


Die einzelnen Zeichen werden 
zum Editieren [n lOfacher Vergrö¬ 
ßerung auf dem Bildschirm darge¬ 
stellt. Dabei hat man jederzeit den 
Überblick über das zu bearbeiten¬ 
de Zeichen, d, h. man sieht auch, 
wie das jeweilige Zeichen auf dem 
Drucker aussieht. Die einzelnen 
Zeichen sind auch nach Erstellung 

0123456789: ; <=>?§ 

QRSTUOWXYZAÖü ' 

qrstuvwxyzÄö'tß 

eines Zeichensatzes korrigierbar. 
Ein Zeichensatz-Drucker ist ne¬ 
benstehend abgebildet. 
Bezugsquelle; Norbert Hunstig, 
Labor für Nachrichtentechnik, Not- 
tulner Landweg 81,4400 Münster, 
Tel. 02534/7449, Telex 892496 


AFC-Tastatur mit Maus für Apple 


Will der Benutzer bereits beste¬ 
hende Apple-Programme mit Maus 
oder Rollball bedienen, so ist er 
gezwungen, ein zusätzliches Inter¬ 
face in seinen Rechner zu integrie¬ 
ren und vor allem seine Software 
anzupassen. 

Das Ziel, ohne jegliche Anpas¬ 
sung, weder auf Hard- noch auf 
Softwareebene, jedem Benutzer 


ein bequemes, zeitgerechtes Ein¬ 
gabemedium zur Verfügung zu 
stellen, wurde durch die Verknüp¬ 
fung intelligenter Tastatur und 
Maus erreicht. An die Tastaturen 
ALPHAKEY und OPERATOR der 
Firma AFC Computer, Köln, kön¬ 
nen Rollball oder Maus direkt an¬ 
geschlossen werden (siehe Abbil¬ 
dung). Die Tastaturen stellen hier 




das intelligente Interface für beide 
Eingabemedien dar. 

In jedem Programm wird die aktu¬ 
elle Cursorposition mit den Cur- 
sortasten der Rechnertastatur be¬ 
wegt. Wird nun eine an die er¬ 
wähnten Tastaturen angeschlosse¬ 
ne Maus zum direkten Cursorposi- 
liohieren bewegt, so werden die 
Maussignale von der Tastatur in 
wiederholte Cursorbafehle umge- 
wandelL 

Ein an diese Tastaturen ange¬ 
schlossener Rollball verhält sich 
ähnlich wie eine Maus, der einzige 
Unterschied liegt im wahrsten Sin¬ 
ne des Wortes auf oder in der 
Hand, da der Rollball stationär auf 
dem Tisch liegt und somit platz¬ 


sparend dem Benutzer den ge¬ 
wünschten Komfort bietet. 

Neben der vereinfachten Möglich¬ 
keit, den Cursor zu bewegen, kön¬ 
nen mit den zusätzlichen Tasten 
auf der Maus oder dem Rollball 
häufig benötigte Befehle abgeru¬ 
fen werden, ohne die Hand auf die 
Tastatur zurückführen zu müssen. 
Bei der Bearbeitung von Texten 
bietet sich z. B. das Umschalten 
auf Einfügen oder Überschreiben 
sowie das gezielte Löschen von 
Buchstaben oder Textteilen an. 
Bezugsquelle; AFC Computer 
GmbH, Salmstr. 20, 5000 Köln 91, 
Tel. 0221/838000, Telex 8873254 



Wünschen Sie weitere Informationen 
zu den auf diesen Seiten vorge- . 
stellten Produkten ? 



Nichts einfacher als das. Bitte 
klappen Sie die am Heftende 
befindlichen Info-Check-Karten 
heraus und kreuzen Sie an, welche 
weiteren Informationen Sie 
wünschen. 

Vergessen Sie bitte nicht, Ihre 
genaue Anschrift anzugeben. 


deeUer 

I MAGAZIN FÜR APPLE-COMPUTER 


Das Besondere 

• Akustikkoppler EPSON, AK (FTZ) 

• Telecommunications-Software 

• Telefon/Modem-Kombination (Export) 

• Rufnummernspeicher-Set (Export) 

• Controller und Laufwerke bis 800 kB 

• 8"-Technik mit Funktionsgarantie 

• Aktuelle Literatur 


Beate Vollrath Computer 

Kirchstraße 17-1-28 ■ 4650 Gelsenkirchen 

Tel. 0209-209291 • Mailbox 0209-271666 
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Sony-Laufwerke von Ueding 


Copy Killer 

Der Copy Killer der Firma Mattes 
Computersysteme (früher Hama- 
soft) in Albstadt ist ein professio¬ 
nelles Kopierschutzsystem für den 
Apple II. Mit dem Copy Killer Ist es 
möglich, normale 5 1/4-Zoll-Dis- 
ketten vor „Raubkopierern" zu 
schützen. Zunächst wird eine 
Slave-Diskette angelegt. Auf diese 
Slave-Diskette wird dann die Origi¬ 
nal-Diskette kopiert. 

Die so kopierte Diskette ist kopier¬ 
geschützt und läßt sich auch mit 
den bekannten Bit-Kopierprogram¬ 
men wie Nibbles Away, Locksmith 
usw. nicht mehr kopieren. 
Besonderheit: Beim Kopieren auf 
eine Slave-Diskette kann eine 
Boot-Meldung mit eingegeben 
werden. Diese Boot-Meldung wird 
beim Booten der Diskette ange¬ 
zeigt. So kann z. B. jede Diskette 
individuell mit einer Serien-Num- 
mer versehen werden. 

Wir haben das Programm ausführ¬ 
lich getestet. Es besteht übrigens 
aus 2 in Applesoft geschriebenen 
Teilmodulen, die durch ein ge¬ 
meinsames Helle-Programm auf¬ 
gerufen werden und erstens der 
Initialisierung einer Leerdiskette im 


geschützten DOS 3.3-Format (Op¬ 
tion CREATE) sowie zweitens der 
Übertragung der ungeschützten 
Programmvorlage auf die Leerdis¬ 
kette dienen (Option TRANSFER). 
Beispielsweise ließ sich eine derart 
präparierte Programmdiskette mit 
Locksmith-Version 5.0 nicht mehr 
kopieren. U.a. arbeitet das Schutz¬ 
verfahren mit stark geändertem Ti¬ 
ming. Ferner sind auch die Sekto- 
ren-Erkennungs-Bytes geändert 
bzw. fehlen ganz, so daß von ei¬ 
nem weitestgehend zuverlässigen 
Schutzverfahren gesprochen wer¬ 
den kann. 

Als Nachteile des Copy Killers sind 
Im einzelnen zu nennen, daß er¬ 
stens nur DOS 3.3-Disketten, also 
z. B. keine ProDOS- oder Pascal- 
Disketten geschützt werden kön¬ 
nen, und daß zweitens ein Um¬ 
schalten zwischen geschützter 
Programmdiskette und unge¬ 
schützter Datendiskette offenbar 
nicht möglich ist, so daß Datendis¬ 
ketten nicht konventionell mit z. B. 
COPYA gesichert werden können. 

Bezugsquelle: Mattes Computer¬ 
systeme (Hamasoft), Theophil- 
Wurm-Str. 2, Tel. 07432/13316, 
Telex 763317 


Die Firma Ueding electronics, Hol- 
tewiese 2, 5750 Menden 1, liefert 
seit kurzem Sony-Laufwerke (sie¬ 
he Abbildung) mit Patch-Diskette 
für DOS 3.3, CP/M 2.2. Pascal 1.1. 
Für ProDOS sind Patch-Program¬ 


me In Vorbereitung. Die Laufwerke 
sind für den Apple II gedacht. Ein 
ausführlicher Testbericht ist für das 
November-Heft von „Peeker" ge¬ 
plant. 



65C02 + Accelerator; Wer liefert was? 


Bidirektionaler Datenverkehr 
zwischen Apple 

und Brother-Typenradschreibmaschine 


Der 65C02-Prozessor sowie die 
Accelerator-Karte, insbesondere 
die neue für den Apple Ile, sind 
z. Z. in Deutschland noch schwer 
erhältlich. Aufgrund einer Händler¬ 
umfrage nennen wir Ihnen in der 
Reihenfolge der Postleitzahlen 
nachfolgend Apple-Händler, die 
den 65C02 (1) und/oder die Acce¬ 
lerator-Karte (2) ab Lager liefern 
können: 

- pandasoft Dr.-Ing. Eden, Uh- 
landstr. 195, D-1000 Berlin 12, (2) 

- intermicro Software & Computer 
GmbH, Winterhuder Weg 48, D- 
2000 Hamburg 76, (1), (2) 

- Hans Schröder Computersyste¬ 
me GmbH, Föhrenstr. 19, 2800 
Bremen 1, (1) 

- UNITRONIC Vertriebs GmbH, 
Manskestr. 29, D-3160 Lehrte, (1) 

- weidemann electronic, Postfach 
48, D-5455 Rengsdorf, (1) 

- computermarkt R. Sattler, 
Braunstr. 4, D-6120 Michelstadt, 
( 2 ) 


- Schöpp GmbH Telecommunica- 
tlon, Bahnstr. 79, D-6140 Bens- 
heim, (2) 

- GSG Geräte-System-Ges. mbH, 
Am Weissen Stein 1/3, D-6330 
Wetzlar 26, (2) 

ORGASOFT GmbH Organisa- 
tionsberratung -i- Software, Wer- 
ner-von-Siemens-Str. 3, D-7730 
VS-VillIngen, (2) 

- Computerfachgeschäft GmbH, 
Maximiliansplatz 22, D-8000 Mün¬ 
chen 2, (2) 

- Mikrocomputer Vertriebsgesell¬ 
schaft mbH MKV, Landwehrstr. 75, 
D-8000 München 2, (2) 

- Hard- u. Software-Büro Dipl.- 
Kfm. Richard Zeitler, Holzfällerstr. 
4, D-8400 Regensburg, (2) 

- bürosysteme Heinz Ott GmbH, 
Steigbeetstr. 11, D-8500 Nürnberg 
50, (2) 

- target electronic Ing. 0. Aistleit- 
ner, Reichstr. 123 a, A-6800 Feld¬ 
kirch, (2) 


Die elektronische Typenrad¬ 
schreibmaschine Brother CE-50 
mit speziellem bidirektionalem In¬ 
terface für Apple ll/lle bietet die 
Firma interkom electronic In Isern¬ 
hagen an. 

Durch die Entwicklung maßge¬ 
schneiderter Hard- und Software 
für das Interface konnten Möglich¬ 
keiten geschaffen werden, die 
sonst nur Systeme deutlich höhe¬ 
rer Preisklassen aufzeigen. So 
wird eine Vielzahl von zusätzlichen 
Sonderfunktionen erreicht, z. B. 
automatisches Unterstreichen, 
hoch- und tiefstehende Zahlen, 
Vorwärts- und Rückwärtstransport 
usw. 

Durch die Möglichkeit des bidirek¬ 
tionalen Betriebs wird die Typen- 
radschreibmaschlne nicht nur zum 


Korrespondenzdrucker, sondern 
auch zur Eingabetastatur für den 
Apple. 

Das System unterstützt alle gngi- 
gen Textverarbeitungsprogramme, 
die auf Apple- oder Apple-kompa¬ 
tiblen Rechnern laufen, außerdem 
CP/M, Pascal, Fortran und Apple¬ 
soft (siehe Abbildung). 

Bezugsquelle: intercom electronic, 
Kock & Mreches GmbH, Am Hei¬ 
sterholz 5, 3004 Isernhagen 4, Tel. 
05139/87393, Telex 923827 
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Apple DOS 3.3 

von Ulrich Stiehl 

2. Aufl. 1984, 203 S., kart., DM 28,- 
ISBN 3-7785-1049-5 
Hüthig Verlag, Heidelberg 

Dies ist die erste deutschsprachige 
Darstellung des Diskettenbetriebs¬ 
systems DOS 3.3 für den Apple II/ 
II Plus/Ile, die sich sowohl an App¬ 
lesoft- als auch an Assembler-Pro¬ 
grammierer wendet. Sinngemäß ist 
das Buch zweigeteilt: 

Der erste Teil behandelt ausführ¬ 
lich die dem Applesoft-Program- 
mierer zur Verfügung stehenden 
DOS-Befehle, wobei die Textfiles 
wegen ihrer großen Bedeutung 
und der vergleichsweise kompli¬ 
zierten Handhabung besonders 
dargestellt werden. Viele Textfile- 
Tricks werden hier zum erstenmal 
geschildert. 



Aber auch im zweiten Teil findet 
der reine Applesoft-Programmierer 
insbesondere in dem Kapitel „Ver¬ 
mischte Tips, Tricks und Patches" 
zahlreiche Anregungen. Im übri¬ 
gen ist der zweite Teil für Assem¬ 
bler-Programmierer gedacht. Ne¬ 
ben einer detaillierten Beschrei¬ 
bung der DOS-lnterna enthält die¬ 
ser Teil elf vollständige RWTS-An- 
wenderprogramme - z.B CPM-Re- 
finer, DOS-lose Datendisk, TSL- 
Maker, File-Reader, Pseudo-Disk- 
Driver und Fastbrun-Routine - ,die 
Techniken enthüllen, die bislang 
noch niemals publiziert worden 
sind. Dieses DOS-Buch ist des¬ 
halb der unentbehrliche Begleiter 
für jeden Apple-Programmierer. 

Aus dem Inhalt: 

DOS für Benutzer von Anwender¬ 
programmen - DOS für Applesoft- 
Programmierer - DOS für Assem¬ 


bler-Programmierer- Catalog, TSL 
und VTOC - Fehlermeldungen - 
Vermischte Tips, Tricks und 
Patches - GETLN, RDKEY und 
COUT; Input-Output-Vektoren - 
DOS-Vektoren ab $03D0 - RTWS 
(Read-Write-T rack-Sector) 


Mathematische + Wissen¬ 
schaftliche Programme in 
Basic 

von Ekkehard Flögel 

1984, 142S.,zahlr. Abb., kart., DM 

29,80 

ISBN 3-88963-102-9 
Hofacker, Holzkirchen 

Das vorliegende Buch enthält eine 
Sammlung von mathematischen 
Programmen, die größtenteils Lö¬ 
sungen praktischer Probleme dar¬ 
stellen. Die heutigen Heimcompu¬ 
ter machen es möglich, mathema¬ 
tische Aufgaben auf einfache Art 
zu lösen, die noch vor wenigen 
Jahren nur sehr schwerfällig zu lö¬ 
sen waren. 

Die Auswahl der Programme ist 
natürlich nicht vollständig. Auf Sta¬ 
tistikprogramme ist in diesem Buch 
verzichtet worden, da diese in 
„Statistik in BASIC“ (ebenfalls 
Hofacker-Verlag) bereits enthalten 
sind. 

Die Beispiele reichen von der ein¬ 
fachen Zinseszins- und Renten¬ 
rechnung bis zur Lösung eines 
Randwertproblems. Viel zu wenig 
Ist bekannt, daß auch Rechnungen 
mit Polynomen, die heute vielfach 
noch ohne Computer durchgeführt 
werden, auch mit einem Mikro¬ 
computer realisierbar sind. 

E.Floegel 

Mathematische+ 
Wissenschaftliche 
Programme in 

Basic 

Für Apple Ue ^ llc, 

Commodore, ISM-KJ, 

Atari, Macintosh, Sinclair; u,v.a. 



Aus dem Inhalt: 

Elementare Mathematik - Funktio¬ 
nen und Polynome - Komplexe 
Zahlen, Vektoren, Matrizen - Li¬ 
neare Gleichungssysteme - Aus¬ 
gleichrechnung - Numerische In¬ 
tegration von Differentialgleichun¬ 
gen - Program Evaluation and Re¬ 
view Technique (PERT) - Lösung 
des DIrchiletproblems durch Diffe¬ 
renzverfahren - Lineare Regres¬ 
sion - Lineare Planungsrechnung 
- Fourier Analyse - Algebra 


Statistik in Basic 

von Ekkehard Flögel 
1984, 214 S., zahlr. Abb. und Ta¬ 
bellen, kart., DM 39,~ 

ISBN 3-88963-188-6 
Hofacker, Holzkirchen 

In den letzten Jahren ist es durch 
wachsende Verbreitung der Heim¬ 
computer Immer einfacher gewor¬ 
den, Daten zu sammeln und aus¬ 
zuwerten. Das vorliegende Buch 
enthält eine Sammlung von Stati¬ 
stik-Programmen, die In BASIC 
geschrieben sind, und zwar über¬ 
wiegend In Applesoft sowie dar¬ 
über hinaus in IBM-PC-BASIC. 

Es wird gezeigt, wie Balkendia¬ 
gramme gezeichnet, statistische 
Kennzahlen ermittelt oder statisti¬ 
sche Prüfverfahren angewendet 
werden. 

Zu jedem Programm ist ein Bei¬ 
spiel angegeben. Hier wurde vor 
allem mit Musteraufgaben aus der 
Literatur gerechnet, für die Ergeb¬ 
nisse Vorlagen, die ohne Verwen¬ 
dung eines Rechners ermittelt 
wurden. 

Die Theorie zu den Beispielen ist 
kurz gehalten. Dieses Buch soll 
kein Lehrbuch für Statistiker sein, 
sondern zeigen, wie statistische 
Berechnungen auf einfache Art in 
BASIC formuliert werden. 

Aus dem Inhalt: 

Darstellung der Daten - Grafische 
Darstellung von Daten - Statisti¬ 
sche Kennzahlen - Wahrschein¬ 
lichkeitsrechnung - Markov-Analy- 
se - Diskrete statistische Vertei¬ 
lungen - Die Normal Verteilung - 
Statistische Prüfverfahren - Para¬ 
meterfreie Testverfahren - Va¬ 
rianzanalyse - Lineare Regression 


E.FLOEGEL 



STATISTIK 
IN BASIC 


EINFÜHRUNG, 

PRAKTISCHE ANWENDUNGEN, 
PROGRAMMBEISPIELE 


- Die mehrfache lineare Regres¬ 
sion - Autokorrelation - Nichtlinea¬ 
re Regression - Vorhersagen und 
Trendberechnungen - Statistik 
und Glücksspiel 


Apple II leicht gemacht 

von Joseph Kascmer 
1984, 185 S., zahlr. Abb., kart., DM 
28,- 

ISBN 3-88745-031-0 
Sybex-Verlag, Düsseldorf 


Dies ist ein Buch, wie es sich jeder 
Apple-Anfänger nur wünschen 
kann: Schrittweise, leichtverständ¬ 
liche Anleitung zum Umgang mit 
dem Apple mit einigen durchsichti¬ 
gen, unkomplizierten Beispielen in 
Applesoft, die ihn nicht abschrek- 
ken, sondern ermutigen sollen, 
sich mit dem Gerät näher vertraut 
zu machen. Damit ist „Apple II 
leicht gemacht“ das ideale Einstei¬ 
gerbuch für den reinen Anwender, 
der nicht nur „auf den Knopf drük- 
ken", sondern zumindest einige 
Details der Black Box namens 
Apple erfahren will. 


Aus dem Inhalt: 

Kontrolle des Geräts - Schreiben 
und Zeichnen auf dem Bildschirm 

- Geheimnisvolle Abläufe: Pro¬ 
gramme - Verschiedene Eingriffs¬ 
möglichkeiten - Mobile Speicher: 
Disketten - Kontrollmöglichkeiten 

- Das Innenleben 
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Das ist Spitze! 

Apple Ile 64 KB DM2.195,- 

Apple Disk II m.C. DM 1.020,- 

Apple Disk II 2. LW DM 798,- 

Duo Disk 2 X 143 KB m.C. DM 1.750,- 
Apple II Monitor DM 476- 

Matrixdrucker Itoh 8510 A DM 1.500,- 
Imagewriter 80 Z incl. Kit DM 1.480,- 
80 Zeichen / 64 KB Ile DM 637,- 
Z-80Card DM 140,- 

16K-Karte DM 140,- 

Akustikkoppler m. FTZ DM 695,- 
Macintosh DM 6.200,- 

Macintosh2. LW DM 1.184,- 

2.000 Bl. TAB - papier 240 x 12 " 
weiß, perforier DM 47,- 

Abdeckhaube Ile DM 48,- 

Abdeckhaube Mac DM 48,- 

Abdeckhaube Itoh 8510 A DM 21,- 
Apple llc 128 KB DM 2.800,- 

Applellc2. LW DM 820,- 

Apple llc Monitor DM 495,- 

Apple llc Ständer DM 98,- 

Apple Writer Ile DM 490,- 

Lagerhaltung DM 550,- 

Kundenkartei DM 450,- 

Alle Preise verstehen sich zuzügl. MwSt. 
Lieferung per Nachnahme. 


Oiganisationsberatung + Software 

Organisationsberatung + Software 
Microcomputer 

Werner-v.-Siemens-Straße 3 
7730 VS-Villingen 
Telefon 07721/72213 + 72223 


D.O.S. Computersysteme 

Der Spezialist für Schulen, 
Universitäten, Techniker! 


Aus unserem umfangreichen Angebot: 


Profimax II mit 64K RAM, Apple II- 
comp., 6502 + Z80, progr. Tastatur 

num. Block, 5A-Netzteil . 1248,- 

Profimax III, wie oben, im Profigehäuse 

mit IBM-Tastatur . 1448,- 

Motherboard Profimax . 798,- 

Profimonitor, Metallgehäuse, 22 MHZ, 

12^, bernstein. 398,- 

Monitor Heath/Zenith ZVM 123, grün, 

15 MHZ . 308,- 

Tastatur aus Profimax II . 198,- 

IBM-Tastatur, ASCII, anschlußfertig 

an Apple o. - comp. 348,- 

IBM-Tastatur, deutsche Belegung . 398,- 

TEAC 55A, kompl. m. Kabel u. Geh., 


TEAC 55F, 2 X 80 Spuren, modif. für 

Betrieb an Apple . 798,- 

Winchester-Laufwerk, 10 MB,Geh., 

Netzt., Kabel, Software, Contr. 5498,- 

Disk II Controller. 148,- 

Contr. für alle 5 1/4" Laufwerke, mit 

Patch für DOS, CP/M, PASCAL. 248,- 

Languagecard (16K-Karte) . 148,- 

Z80-Softcard . 148,- 

80Z-Karte, Softswitch, 2 Zeichens. 268,- 

80Z-Karte mit 4 Zeichensätzen . 268,- 

Druckerinterface, par. (= Centr.), 

für NEC 8023B/N, ITOH 8510 . 298,- 

Epromburner für 2716-2764 . 248,- 

AD-Wandler, 333ms Wandelzeit. 288,- 

Drucker NEC a023B/N 

{= ITOH 8510). 1498,- 

Typenraddrucker JUKI 6100 !!!!. 1898,- 

Typenradschreibm. Olympia electr. 

compact 2, Centronics-Schnittst. 1498,- 

Plotter Pixy 3, DIN A 4 . 2498,- 

Disks Scotch, SS, DD, 744 RH, 

10 St. 70,- 


Unsere Stärke ist die Beratung! Fordern Sie 
unseren ausführlichen Katalog an (DM 2 - in 
Briefmarken). 

D.O.S. Computersysteme 
Martin Götzer 

Am Kühnbach 42 • 7170 Schwäbisch Hall 11 
Telefon 0791/54227 


Vorschau 

Im nächsten Heft, das Ende November erscheint, lesen Sie u. a. 

- Wie man die Grafik verdoppelt 
Teil 2: Double Hires 

- Ampersand macht’s möglich 
INSTRING-Befehl in Applesoft 

- Block-Tracer für ProDOS 

- ProDOS für Anfänger, Teil 1 

- IF-THEN-ELSE-Befehl 
simuliert in Applesoft 

- Prometric 

Ein Apple-Kompatibler mit 65C02 

- Hardware-Test: 3,5-Zoll-Laufwerke 


ProDOS-Editor 1.0 

Applesoft-Editor 

unter ProDOS-Betriebssystem 

von U. Stiehl 

1984, Diskette und Manual, DM 98,- 
ISBN 3-7785-1024-X 

Mit diesem neuen Editor - übrigens 
der bislang einzige deutsche Pro¬ 
DOS-Editor - wird dem Applesoft- 
Programmierer ein Werkzeug zur ef¬ 
fektiven Programmierung unter dem 
Betriebssystem ProDOS gegeben, 
denn die früheren Editoren sind alle¬ 
samt unter ProDOS nicht mehr lauf¬ 
fähig. 

Unter anderem sind folgende Fea¬ 
tures implementiert worden: 

- Zeilenorientierter Editor mit jedem 
erdenklichen Redigierkomfort (In¬ 
sert, Delete, Tab, Restore, freie 
Cursorbewegung in allen vier Rich¬ 
tungen, Eingabe von Ctrl-Buchsta- 
ben in Applesoft-Zeilen usw.) 

- Renumber (Zeilen-Umnumerie- 
rung) 

- Xreference (sortierte Variablen¬ 
liste) 

- Suchen von Tokens, Strings und 
Variablen 

- dezimale und hexadezimale Um¬ 
rechnung 

- Ausführung von Monitorbefehlen 
aus dem Editor heraus 

- Listen des Applesoft-Programms 
in speicherinterner Form als Hex- 
Dump 

- Suchen von Hex-Folgen, Adres¬ 
sen oder Speicherstellen im ge¬ 
samten RAM-Bereich einschließ¬ 
lich der Language-Card 

- frei definierbare Tastatur-Macrobe¬ 
fehle 

Der Applesoft-Editor liegt in einem 
von ProDOS geschützten Bereich 
und läßt sich per Tastendruck vor¬ 
übergehend abschalten und ebenso 
einfach wieder aktivieren. 

Gerätevoraussetzung: Apple ll-h, Ile 
oder llc 


Hüthig Software Service, 
Postfach 10 28 69, 
D-6900 Heidelberg 
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Sie haben einen Appie... 


wir haben die 
Bücher... 



Apple II 
Schaltplane 

WbMion IX Gciyflir 


Apple 

Pascal Grafik 


Ibm Swon 



22 PASCAL-Programme, mit denen Sie 
die Grafik-Möglichkeiten Ihres Apples 
voll ausschöpfen: 

DESIGNER ermöglicht es Ihnen, eigene 
Zeichensatze zu entwerfen; 

GREDIT unterstützt Sie beim Entwerfen 
und Abspeichern kompletter Bild¬ 
schirmgrafiken; 

PRINTFOTO bringt Ihre Entwürfe aufs 
Papier. 

Daruberhinaus bietet das Buch eine 
Fülle fertiger Prozeduren, die Sie zeit¬ 
sparend in Ihre eigenen Programme 
einbauen können, 

ISBN: 3-89058-009-2 .. DM49.- 

komplett mit Disk DM 89,— 



Eine detaillierte Beschreibung der 
Apple Il-Schaltungen. 

Wenn Sie Ihren Apple selbst reparie¬ 
ren, Interface-karten oder 
Schaltungserweiterungen entwerfen 
oder einfach nur besser über das 
Innenleben Ihres Apples Bescheid 
wissen wollen - dieses Buch bietet 
Ihnen eine Fülle an Informationen: 
Schaltplane und Zeitdiagramme. 
Theorie und praktische Tips. 

ISBN: 3-89058-012-2 .. DM64.- 


Apple il 
Raster Grafik 

Jeffray Shin t w i 


Apple 11 

Assembler* 

Pragrammierung 

W l Qn Gf 



Die Qualität kommerzieller Arcade- 
spiele läßt sich mit APPLESOFT BASIC 
alleine nicht erreichenjeffrey Stanton 
fuhrt in die Eigenarten der hochauf¬ 
lösenden Apple-Grafik ein und präsen¬ 
tiert schließlich eine Reihe extrem 
schneller Assembler-Routinen, mit 
denen Sie viele Effekte bekannter 
Spiele selbst programmieren können. 
Gute BASIC-kenntnisse werden voraus¬ 
gesetzt, eine Einführung in Assembler- 
Programmierung wird gegeben. 

ISBN: 3-89058-006-8 _ DM49.- 

komplett mit Disk DM 89.— 





Das Assembler-Lehrbuch für BASIC- 
kenner. Roger Wagner, der Autor vieler 
bekannter Software-Pakete, schrieb 
eine monatliche kolumne über 
Assembler-Programmierung in der 
APPLE-Zeitschrift SOFTALk. 

Der vorliegende Band faßt diese Reihe, 
korrigiert und erweitert, zusammen: 
Eine stufenweise Einführung in die 
Befehle und Strukturen der 
Assemblersprache, mit vielen Beispie¬ 
len von der einfachen Tongenerierung 
bis zum Diskettenzugriff, 

ISBN: 3-89058-003-3 ...... DM 48.- 

komplett mit Disk DM89,— 



Endlich anspruchsvolle Computergrafik 

für BASIC-Programmierer! 

Mikrocomputer Grafik 

- enthält fast 80 lauffertige BASIC- 
Programme, die die beschriebenen 
Grafikkonzepte illustrieren 

- ist für den Anfänger geschrieben und 
erfordert nur elementare Mathe¬ 
matikkenntnisse 

- enthält Techniken zur Erzeugung 
dreidimensionaler Grafiken in zwei 
Dimensionen, Hidden Line- und 
Hidden Surface-Methoden und 
Skalierung. Rotation und Translation 
von Grafiken 

- bietet eine Einführung in die 
Animationstechnik 

ISBN: 3-89058-000-9 .. DM49.-- 

komplett mit Disk DM89,-- 


'Fördern Sie unseren Gratiskatalog cni 


ALLES FÜR DEN APPLE II, II*, HE 


panda^öFtor inc 

UHLAIMD5TR. 195 - 0-1000 BERLIN IS 
TEL.;C030J 310 4S3 • TELEX: 18 59 59 


Dr.-Ing. 

ILIN1S ,, 


c,\C' 


Autorisierter 


Fachhändler MICROSOFT. Distributor 













































Apple ProDOS für Auf¬ 
steiger 

Band 1 

von Ulrich Stiehl 
1984, 202 S.. kart., DM28,- 
ISBN 3-7785-1027-4 
Hüthig Verlag, Heidelberg 

ProDOS ist das neue „professio¬ 
nelle DOS“ (Professional Disk 
Operating System) für den Apple 
Ile sowie den mit einer Language 
Card ausgestatteten Apple II Plus. 
Reine Applesoft-Programmierer, 
die bereits unter DOS 3.3 pro¬ 
grammiert haben, werden sich 
schnell an ProDOS gewöhnen, da 
die diesbezüglichen Unterschiede 
zwischen DOS 3.3 und ProDOS 
weniger gravierend sind. 
Sinngemäß liegt das Schwerge¬ 
wicht in dem ersten Band von 
„ProDOS für Aufsteiger" auf der 
Assembler-Programmierung, da 
Assembler-Programmierer unter 
ProDOS völlig umdenken müssen. 
Insbesondere sind alle früheren 



Assemblerprogramme unter Pro- 
DOS nicht mehr lauffähig und be¬ 
dürfen einer intensiven Überarbei¬ 
tung. Band 1 befaßt sich überwie¬ 
gend mit den theoretischen 
Grundlagen von ProDOS, der in¬ 
ternen und externen Speicheror¬ 
ganisation und enthält grundlegen¬ 
de Beispielprogramme für Assem¬ 
bler-Programmierer sowie gene¬ 
relle Untersuchungen zum BASIC- 
.SYSTEM. Da ProDOS über erheb¬ 
lich vielfältigere und leistungsfähi¬ 
gere, zugleich jedoch erheblich 
kompliziertere Dateistrukturen ver¬ 
fügt, sind theoretische Kenntnisse 
von ProDOS unabdingbar, wenn 
man die Features von ProDOS voll 
ausschöpfen will. 


Aus dem Inhalt: 

Ein erster Überblick- ProDOS und 
DOS 3.3 - interne Speicherorgani¬ 
sation - Externe Speicherorgani¬ 
sation - MLI (Machine Language 
Interface) - ProDOS für Applesoft- 
Programmierer 








